Sub L() For i = 29 To 1740 Step 29 Rows(i & ":" & i).Select Selection.Delete shift:=xlUp i = i - 1 Next End Sub