Option Explicit

Dim lngLastRow  As Long

Sub Sortieren()
With ActiveSheet
    'Letzte Zeile in Spalte D ermitteln
    lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    'Spalte J als Hilfsspalte vorbereiten...
    With .Columns("J:J")
        '...Spalte ausbelenden
        .EntireColumn.Hidden = True
        '...alle Einträge in Spalte löschen
        .ClearContents
    End With
    'In Zeile 2 der Hilfsspalte die Zahl eintragen
    .Range("J2").FormulaR1C1 = "1"
    'In Zeile 3 der Hilfsspalte die Zahl eintragen
    .Range("J3").FormulaR1C1 = "2"
    'Von Zeile 3 bis zur letzten Zeile über die Auoausfüllen-Funktion die Zeilen durchnummerieren
    .Range("J2:J3").AutoFill Destination:=.Range("J2:J" & lngLastRow), Type:=xlFillDefault
    'Daten nach Spalte D und Spalte E sortieren
    .Range("A1:J" & lngLastRow).Sort Key1:=.Range("D2"), Order1:=xlAscending, Key2:=.Range("E2") _
            , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
            , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
            xlSortNormal
End With
End Sub

Sub Sortieren_zurück()
With ActiveSheet
    'Letzte Zeile in Spalte D ermitteln
    lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    'Daten nach Hilfsspalte sortieren
    .Range("A1:J" & lngLastRow).Sort Key1:=.Range("J2"), Order1:=xlAscending, Header:=xlYes, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    'alle Einträge in Hilfsspalte löschen
    .Columns("J:J").ClearContents
End With
End Sub