Off the top
Code:Dim lastrow As Long Dim i As Long With ActiveSheet lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = lastrow + (30 - lastrow Mod 30) + 1 To 1 Step -30 .Rows(i).Resize(5).Delete Next i End With
Off the top
Code:Dim lastrow As Long Dim i As Long With ActiveSheet lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = lastrow + (30 - lastrow Mod 30) + 1 To 1 Step -30 .Rows(i).Resize(5).Delete Next i End With
thanks for your help Bob !!!![]()
Bookmarks