Probleme mit der Sortierung unter VBA

ich habe ein Problem mit der Sortierung unter VBA. Wenn ich die Sortierung menuell ausführe, werden alle Spalten mit sortiert. Sobalt ich aber die Sortierung per VBA ausführen lasse, wird nur die Spalte M sortiert. Die Artikelnamen sind zumindest bei der manuellen Sortigung anders, als bei der Sortierung durch VBA, obwohl ich bei beiden gleich sortiert habe. Woran kann das liegen?
Hier der Code:

Sub test()
Columns("M:M").Select
Selection.Sort Key1:=Range("M2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Vielen Dank für die Hilfe im Voraus.

Gruss
Thomas