Frage zu XlUp und XlDown

bei folgendem Makro habe ich das Problem, dass beim Einfügen in export_2.xls immer überschrieben wird, es soll jedoch der kopierte Bereich immer unten angehangen werden. Was läuft falsch??

Grüße, Basti

'Nicht registrierte Benutzung der Excel Code Jeanie 1.0

Sub copy()
Dim Letzte_Zeile As Long

Letzte_Zeile = [W65536].End(xlUp).Row

Letzte_Zeile_Kopiertabelle = [A1].End(xlDown).Row
    Workbooks("aExport-neu.xls").Worksheets("Statistik Bereiche mit MA").Range("A9:W" & Letzte_Zeile).copy

    With Workbooks("Export_Cognos.xls").Worksheets("Kopiertabelle").Range("A" & Letzte_Zeile_Kopiertabelle - 1)

        .PasteSpecial Paste:=xlValues

        .Columns("A:A").NumberFormat = "dd/mm/yy"

        .Columns("B:B").HorizontalAlignment = xlRight

        .Columns("D:D").HorizontalAlignment = xlRight

        With .Columns("E:E")

            .NumberFormat = "@"

            .HorizontalAlignment = xlRight

        End With

        .Columns("F:F").NumberFormat = "@"

    End With

    Application.CutCopyMode = False

    

End Sub