SAS o VBA excel ordenar datos de izquierda a derecha respetando cabeceros de columnas

Estoy intentando ordenar datos como de forma descendente por fila pero que respete los nombres de las columnas para mostrar primero la columna con el valor más alto en el primer mes, y así sucesivamente con todas las lineas de mes. ya se que la primera prevalece.
Es lo que se hace de forma manual eligiendo la opcion ordenar de izquierda a derecha y ordenando por filas en excel.

Este código (que no es mío) lo hace pero ignora totalmente las columnas, sólo atiende a las lineas y mezcla los datos de todas las columnas. Alguien puede ayudarme por favor? Gracias de antemano.

Preferiría en vba excel pero si alguien sabe hacerlo en sas también me vale. Gracias

Sub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+S
'
    Range("d2:g2").Select
    Selection.Sort Key1:=Range("d2"), Order1:=xlAscending, Header:=c1 _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Range("d3:g3").Select
    Selection.Sort Key1:=Range("d3"), Order1:=xlAscending, Header:=c1 _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
        Range("d4:g4").Select
    Selection.Sort Key1:=Range("d4"), Order1:=xlAscending, Header:=c1 _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
End Sub