Hello
I found the following code on another thread:
Sub Delete_Last_10_Rows()
Dim rLastRow As Range
Set rLastRow = Cells(Rows.Count, "C").End(xlUp)
'now delete last 10 rows:
rLastRow.Offset(-9).Resize(10).EntireRow.Delete
MsgBox ("The last 10 Sets of Data is now Deleted")
End Sub
Many...