Sortierung über 6 Spalten

Ich habe ein kleines Problem für das ich keine vernünftige Lösung finde.

Ich muss einen Range von n Spalten nach 6 Spalten sortieren.
Key1:=D1, Key2:=E1, Key3:=F1, Key4:=G1, Key5:=H1, Key6:=I1

Nun besteht mein Problem darin, dass Selection.Sort nur 3 Keys zulässt.

Weiss jemand vielleicht eine elegante Lösung. Habe schon einiges ausprobiert doch sind diese Anfänge nur mit sehr grossem Aufwand zu verwirklichen.

Danke für jeden Hinweis oder auch für eine elegenate Lösung
Gruss aus der verschneiten Schweiz
René