Conditional Row Delete

[NMB311]

I would like to delete any row in my worksheet that contains the word "Page" and the next 7 rows after it. Is there an easy way to do this?

 

[Michael M]

Is "Page" in any particular column ?

 

[AlphaFrog]

Test this on a copy of your data.

Sub Delete_Page_Rows()

    Dim FoundPage As Range
    
    Set FoundPage = ActiveSheet.Cells.Find(What:="Page", _
                                           LookIn:=xlValues, _
                                           LookAt:=xlPart, _
                                           MatchCase:=False)
    Application.ScreenUpdating = False
    Do Until (FoundPage Is Nothing)
        FoundPage.EntireRow.Resize(8).Delete
        Set FoundPage = ActiveSheet.Cells.Find(What:="Page")
    Loop
    Application.ScreenUpdating = True
    MsgBox "Delete ""Page"" rows complete."
    
End Sub

 

[NMB311]

Wow! That code worked perfectly! Thank you so much!