macro to delete first 5 rows then after every 25

[sanchit16]

hi,

I need a macro to delete first 5 rows then after every 25 rows again delete 5 rows.


Hope someone have a clue of it


thanks in advance!!!

[Bob Phillips]

Off the top

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

[sanchit16]

thanks for your help Bob !!!