Sub Find_YOUKEYWORD()
    Dim rng As Range
    Dim what As String
    what = "YOUKEYWORD"
    Do
        Set rng = ActiveSheet.UsedRange.Find(what)
        If rng Is Nothing Then
            Exit Do
        Else
            Rows(rng.Row).Delete
        End If
    Loop
End Sub