Makro nächste freie Zeile in A wenn in D etwas

Hallo VBMichi
Hoffe Du kannst mir helfen, stehe etwas auf dem Schlauch…
ich möchte per makro A1:E1 in die nächste freie zeile einfügen, wobei massgebend ist ob Zellwert D frei ist. z.B. wenn in D4 etwas steht soll A1:E1 in A5:E5 eingefügt werden.Ich bin soweit, dass es mir die nächste Zeile findet,

Range(„A1:E1“).Select
Selection.Copy
Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Select

aber ich will nicht hierhin kopieren, sondern auf dieser Zeile in A.

Hoffe habe mich einigermassen verständlich ausgedrückt.
Danke im Voraus
Xaver

Hallo Xaver,

versuch es mal bitte so:

Range(„A1:E1“).Select
Selection.Copy
cellRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Row
cellRow = cellRow + 1
ActiveSheet.Cells(cellRow, 1).Select
ActiveSheet.Paste

Ist das so, wie Du es Dir vorstellst?

Viele Grüße,
VBMichi

Hallo VBMichi
besten Dank haut so hin, genau was ich wollte!
Besten Dank und Grüsse
Xaver