einzelne tabellenabschnitte sortieren

wie kann man in vba einzelne abschnitte einer tabelle sortieren? Ich habe in der ersten spalte eine kennnummer. die liste ist bereits nach kennnummern sortiert. nun möchte ich geräte mit gleicher kennummer untereinander nach den einträgen in der 2. spalte sortieren. habe gedacht folgender code würde funktionieren:

Range(Cells(1, 1), Cells(zeile, 4)).Sort _
Key1:=Range(Cells(zeile - zaehler + 1, 2)), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

dabei ist zeile eine zählvariable, die alle zeilen der tabelle durchläuft und zaehler eine variable, die die anzahl der einträge mit gleicher kennummer für jede kennnumer zählt.

danke im voraus,

tim