Solved: select last 5 rows

[asdzxc]

copy last 5 rows then to paste to A2 and finally to delete
rows starting from row7th, plse write vba.

[patel]

[VBA]Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:A" & LR - 5).EntireRow.Delete
End Sub[/VBA]

[asdzxc]

[vba]Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:A" & LR - 5).EntireRow.Delete
End Sub[/vba]

sloved with thanks

[Aussiebear]

To mark your thread solved simply click on the dropdown Thread Tools and select the correct option. I have done this for you this time