VBA - Sorting by columns

[Rasm]

I use the code below to sort my data by rows -- is there a way I can sort columns - based upon numeric values in a row --- I suppose I could transpose the data then sort - then transpose the data again

Public HeaderRow as long
Sub SortAscending()
    Select Case ActiveCell.Row
        Case HeaderRow
            If IsEmpty(ActiveCell.Value) Then Exit Sub
            Static MySortType As Integer
            MySortType = xlAscending
            ActiveCell.CurrentRegion.Offset(1).Sort Key1:=ActiveCell, Order1:=MySortType, Header:=xlYes
    End Select
End Sub