Bovenstaande regel kopieren via macro+variabel

[Omteleren]

Hallo,
Het is een tijdje geleden dat ik met macro's heb gestoeid.
Ik wil graag een 1 regel naar beneden kopieren via een macro. De laatste regels kan nog bewerkt worden door de gebruiker, maar is het niet nodig om alle gegevens in te vullen.

Het lukt mij niet om dit relatief te maken, dwz regel 4 kopieren naar regel 5, regel 5 naar regel 6, ect
Ik wil graag regel 4 naar regel 5 kopieren en heb een voorbeeld bestand toegevoegd.

Ik heb reeds een macro opgenomen, maar deze is nog niet goed.

Quote !

Sub Invoer()
'
' Invoer Macro
' Application.Goto Reference:="R2C1"
Selection.End(xlDown).Select
Rows("4:4").Select
Selection.Copy
Rows("5:5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="R5C1"
Application.Goto Reference:="R2C1"
Selection.End(xlDown).Select
Range("D5").Select
End Sub

Wie zou mij hierbij kunnen helpen. Mijn dank is groot.

 

[VenA]

Bv

Sub VenA()
  With Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6)
    .Value = .Offset(-1).Value
  End With
End Sub

 

[Omteleren]

Beste VenA,
Het werkt helemaal goed. Schitterend.
Dit is wat ik zocht. Bedankt voor jouw snelle hulp.
Ik kijk graag op dit forum en nu kwam hulp mij van pas.
Bedankt!

 

[HSV]

Sub hsv()
 Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6).FillDown
End Sub