Sub Sort_Columns()
Dim col As Long
Application.ScreenUpdating = False
For col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
Columns(col).Sort Key1:=Cells(2, col), Order1:=xlAscending, Header:=xlYes
Next col
Application.ScreenUpdating = True
End Sub