Find and Delete

Try this

    Dim rFound As Range
    Dim rDelete As Range
    '    On Error Resume Next
    With Sheet2
        Set rFound = .Columns(1).Find(What:="Hello", LookIn:=xlValues)

        If Not rFound Is Nothing Then
            Set rDelete = .Range(rFound, rFound.End(xlDown))
            rDelete.EntireRow.Delete
        End If
    End With