Laatste 5 rijen kopieren en plakken

[Evelthoven]

Goedemiddag,

In het bijgesloten bestandje heb ik mijn vraag gesteld.
Ik wil graag met een macro wekelijks de laatste 5 rijen kopieren en plakken naar de eerste lege rij.

Kan iemand me helpen?

 

[SjonR]

zoiets?

Sub SjonR()
Cells(Rows.Count, 1).End(xlUp).Offset(-4).Resize(5).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

 

[emields]

en deze trekt er ook nog lijntjes bij.

 

[Evelthoven]

Beste SjonR,

Dit is perfect!
Bedankt.

Gr. Eric

 

[Evelthoven]

Ook Emields bedankt!
Fijn dat de lijnen nu ook meegenomen worden.