Makro - Einfügen in nächste leere Zeile

[Maluk]

Hallo
Ich habe ein Makro erstellt, wo ich Daten aus dem Blatt "Rechnung" in das Blatt "Warenausgang" kopieren möchte. Allerdings kopiert es mir immer in die gleiche Zeile und überschreibt die vorherigen Resultate. Ich möchte, dass es mir die Resultate in die nächste leere Zelle einfügt.
Hier das Makro.

Sub Waren_final()
    Range("A24:F40").Select
    Selection.Copy
    Sheets("Warenausgang").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("H25").Select
    Sheets("Rechnung").Select
    Range("A24:B40,D24:D40").Select
    Range("D24").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G35").Select
End Sub

Vielen Dank für die Hilfe...

[gmg-cc]

Moin,
das Makro hast nicht du erstellt sondern der Makro-Rekorder (so grauenhaft programmiert noch nicht einmal ein Anfänger).
Und zweitens hast du ein Crossposting erstellt, was mich an einer Beschäftigung mit deinem Problem hindert.