Steve, here is a one line command which deletes all rows above the last 10:Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count - 10,1)).EntireRow.Delete