Deleting Duplicate Entries

Try it out

Sub Macro1()
Dim MyRange As Range
Dim j As Long, LastRow As Long

    With Range("A:A")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    Set MyRange = Range("A1:A" & LastRow)
    Application.ScreenUpdating = False
    For j = MyRange.Rows.Count To 1 Step -1
        With WorksheetFunction
            If .CountIf(Range("A1:A" & j), Range("A" & j)) > 1 Then
                Range("A" & j).EntireRow.Delete
            End If
        End With
    Next j
    Application.ScreenUpdating = True
End Sub