Sortieren in andere Tabelle

möchte gern wenn ich auf Tabelle2 gehe, das sich Tabelle1 worin sich eine Datenbank befindet anders sortiert.
Das Problem ist das sich das Kombinationsfeld auf Nachnamen von Tabelle1 bezieht, die aber nach Klassen sortiert(1a,1b,2a usw.
Nun stehen im Kombinationsfeld die Nachnamen nach Klassen sortiert, das heist, das z.B. ein Nachname wie "Adamo" ganz vorn oder aber auch viel weiter unten sein kann und das bei 600 Schülern.
Habe für Tabelle2 was geschrieben, und ein Macro für die Sortierung, das funzt überhaupt nicht, das ganze spielt verrückt.
Für Tabelle2:
Private Sub Worksheet_Activate()
ADRUCK
End Sub
Habt Ihr eine Idee????

Gruss Peter