Hi,

i am looking to create a macro that will find a specific word, if the word is found I would like it to delete that row and all rows below it.

I have wrote the following but this only delete the row where the word has been found.

Sub Delete()
    
    Dim rFound As Range

    On Error Resume Next
    
    With Sheet1
    
    Set rFound = .Columns(1).Find(What:="Hello", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("A3").Select
    End With
End Sub
Could any1 please help?

Thanks in advance.