Hai provato a registrare la macro e a vedere il codice che genera?

codice:
Sub ordina()
    Range("J4:J35").Select
    Selection.Sort Key1:=Range("J4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub