Tabelle nach Prioritäten sortieren aber ....

Ich habe eine Tabelle:
A B C D E
1 2 Name 1 Ort1 Ort2 Ort3
2 2 Name 2 Ort2 Ort1 Ort3
3 1 Name 3 Ort5 Ort3 Ort1
4 5 Nam3 4 Ort3 0 0

Spalte A enthält die Priorität, nach der ich sortieren möchte.
Spalte B enthält die Namen, die jedoch nicht alphabetisch sortiert werden soll.
Ab Spalte C stehen Arbeitsplätze die nicht Sortiert werden sollen, sondern nur mit dem Namen verschoben werden müssen.

Hat jemand eine Idee?

Meine Lösung sortier falscherum, also von 5 abwärts und die Namen auch nach Alphabet.

Sheets("Test").Select
Range("a1:u81").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("a1").Select

Das falschherum liegt ja am Descending, aber was muß da hin damit er von 1 abwärts sortiert?
Und wie kann ich verhindern, das er die Namen alphabetisch sortiert?

MfG

Karsten