Macro to delete rows

[tim120harvey]

Hi,

My spreadsheet is just over 1m rows big, but hs a numbr of corrupt rows in it.

I need to create a macro loop, where if the cell in column B says "TEXT", then that row and the 3 below it, need to be deleted.

Can anyone help?
Thanks

 

[VoG]

Try

Sub DelText()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
    If Range("B" & i).Value = "TEXT" Then Rows(i).Resize(4).Delete
Next i
Application.ScreenUpdating = True
End Sub