Re: Selecting and Deleting every 24th row?
I haven't tested this but it should work. BACK YOUR DATA UP BEFORE YOU RUN ANYTHING LIKE THIS.
Sub Macro1() Dim i As Integer Dim RowsCount as Long RowsCount = ActiveSheet.UsedRange.Rows.Count For i = 1 To RowsCount If i Mod 24 = 0 Then Rows(i).Delete End If Next i End Sub
Also, beware of the fact that after you delete a row, the index of all the rows beneath it will change. You may need to increment your index after deleting the row. The code I wrote will not do that since I didn't know which behavior you wanted.