Sub Killer()
    Dim rng As Range, A(), Sh As Worksheet
    Set rng = Selection
    Set Sh = rng.Parent
    RowStart& = rng(1, 1).Row
    dx = rng
    Set List = CreateObject("scripting.dictionary")
    For n = 1 To UBound(dx)
        Key$ = dx(n, 1)
        If Key <> "" Then
            If n = UBound(dx) Then
                Keys = Split(Key, ", ")
                For Each Key_ In Keys
                    If List.Exists(Key_) Then
                        A = List.Item(Key_)
                        paralast = UBound(A) + 1
                        ReDim Preserve A(paralast)
                        A(paralast) = n - 1 + RowStart
                        List.Item(Key_) = A
                    Else
                        List.Item(Key_) = Array(n - 1 + RowStart)
                    End If
                Next
            Else
                If List.Exists(Key) Then
                    A = List.Item(Key)
                    paralast = UBound(A) + 1
                    ReDim Preserve A(paralast)
                    A(paralast) = n - 1 + RowStart
                    List.Item(Key) = A
                Else
                    List.Item(Key) = Array(n - 1 + RowStart)
                End If
            End If
        End If
    Next
    Set rng = Nothing
    Items = List.Items
    For n = 0 To List.Count - 1
        A = Items(n)
        For i = 1 To UBound(A) - 1
            If rng Is Nothing Then
                Set rng = Sh.Cells(A(i), 1)
            Else
                Set rng = Union(rng, Sh.Cells(A(i), 1))
            End If
        Next
    Next
    If Not rng Is Nothing Then
        rng.EntireRow.Delete
    End If
End Sub