エクセルで重複している値を持っている行を削除する

エクセルの表である一列内にある値が重複していて、その重複している値を持っている行を削除するマクロです。
備忘録で投稿しておきます。

Sub Macro2()

Dim a As String
Dim i As Integer
Dim t As Integer

ActiveCell.Select
a = ActiveCell.Value
ActiveCell.Offset(1, 0).Select

Application.ScreenUpdating = False

For i = 1 To 4141
Debug.Print "a:" & a & "| count:" & i

If a = ActiveCell.Value Then
    Selection.EntireRow.Delete
    
    For t = 1 To 10000 '一応処理のために時間を置いておく
    Next t

    Else
    ActiveCell.Offset(1, 0).Select
    a = ActiveCell.Value
End If

Next

End Sub