Hallo,
ein anderer Vorschlag:
Sheets("ID").Range("A4:K20").Sort Key1:=Range("E4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'sortieren
Sheets("ID").Range("A4:K20") = der Bereich zum sortieren.
Range("E4") = Spalte E ab Zeile 4
Die Einstellungen sollten angepasst werden.
Gruß
fedjo