Sub Killer()
    Dim Sh As Worksheet, key As String, S As String
    Set C_is = CreateObject("scripting.dictionary")
    Set Sh = ActiveSheet
    LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    dx = Sh.Range("A1:A" & LastRow)
    For n = 2 To UBound(dx)
        key = dx(n, 1)
        If C_is.Exists(key) Then
            S = S & "," & n
        Else
            C_is.Item(key) = n
        End If
    Next
    Z = Split(S, ",")
    Application.ScreenUpdating = False
    For n = UBound(Z) To 1 Step -1
    Sh.Rows(Val(Z(n))).Delete
    Next
    Application.ScreenUpdating = True
End Sub

Sub unA()
Dim strBeg As Long, strMax As Long, strOk As Long, cOl1 As Long, cOl2 As Long, cOl3 As Long, cOl4 As Long
Dim rN As Range, letT1 As String, letT2 As String, aRr As Variant
strBeg = 3
cOl1 = 1
letT1 = Mid(Columns(cOl1).Address, 2, InStr(1, Columns(cOl1).Address, ":") - 2)
strMax = Cells(Rows.Count, cOl1).End(xlUp).Row
If strMax < (strBeg + 1) Then Exit Sub
For strOk = strBeg + 1 To strMax
        If Evaluate("=SUMPRODUCT(--(" & letT1 & strOk & "=" & letT1 & strBeg & ":" & letT1 & (strOk - 1) & "))") Then
            If rN Is Nothing Then
                Set rN = Cells(strOk, cOl1)
            Else
                Set rN = Union(rN, Cells(strOk, cOl1))
            End If
        End If
Next strOk
If Not (rN Is Nothing) Then rN.EntireRow.Delete Shift:=xlUp
End Sub

cOl1 = 1