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.
Code
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
Display More
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.