code:Find and Delete

Wrote the below VB and it worked once but I may have made a mess of things with a series of Cut and Pastes. Want Excel to find specific phrases or words in a specific column and delete them.

Option Explicit

Sub delRows()
    Dim cl     As Range
    Dim uRng   As Range
    Dim rng    As Range
    Dim x      As Long

    Set uRng = ActiveSheet.UsedRange
    For Each cl In uRng
        If cl.Value = "Not Rated  |  Write a Review" Or cl.Value = "Click on the More Info button to learn about this business." Or cl.Value = "More Info" Or cl.Value = "Map It" Then
            If x = 0 Then
                Set rng = cl
                x = 1
            Else: Set rng = Union(rng, cl)
            End If
        End If
    Next cl
    rng.EntireRow.Delete

End Sub

Attachment is included