spalten sortieren über macro

Sub sortieren()
Range("A4").Select
Range("A3:AB4000").Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:= _
Range("D4"), Order2:=xlAscending, Key3:=Range("C4"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortTextAsNumbers
Range("A4").Select
End Sub