Sortierung

Hallo allerseits,
ich habe ein kleines Problem, wenn ich das aufgezeichnete Makro laufen lasse,
wird auch meine Datumsspalte sortiert.
leider klappt es nicht, wenn ich die länge automatisch bestimmen möchte.
Hiermit:

Dim z
     z = Range("A2").End(xlDown).Row
    ActiveSheet.Range(Cells(3, 1), Cells(z, 18)).Select

Sub Makro2()
' Makro2 Makro
    Range("A3:R429").Select
    ActiveWorkbook.Worksheets("Adressen").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Adressen").Sort.SortFields.Add2 Key:=Range( _
        "M4:M429"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Adressen").Sort
        .SetRange Range("A3:R429")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub