Search text and delete rows

[Alex O]

I'm working with an imported text file that is approximately 90 pages. What I'm tring to do is find each cell in range B34:B2811 that has the text string "ACTIVE ACCOUNT INVENTORY" delete it and seven rows below.

Thanks

 

[VoG]

Try

Sub a()
Dim i As Long
For i = 2811 To 34 Step -1
    If Range("B" & i).Value = "ACTIVE ACCOUNT INVENTORY" Then Rows(i).Resize(8).Delete
Next i
End Sub

 

[Alex O]

Exactly what I was looking for....

Thanks!