I am new to VBA, getting a bit of a hang of it.
I found this code via forums etc.
Dim i As Long, lastrow As Long, mydate As Date, erow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row
Application.ScreenUpdating = False
For i = lastrow To 2 Step -1