Kunden Vba

Kunde ! Hakeeko tuo alla oleva vba jonka olit esittänyt jollekin kysyjälle, myös tupla osoitteet ? Eli mulla on taulukon C sarakkeessa osoitteita yli 2500 kpl. Voinko tuolla karsia pois päällekkäisyydet ? Kyseessä postituslista.

Sub PoistaTuplat()
Dim solu As Range
Dim Vika As Double
Dim i As Long
Dim EiTupla As New Collection
On Error GoTo virhe
Vika = Range("A65536").End(xlUp).Row
Range("C" & Vika).Select
For i = Vika To 1 Step -1
If Not IsEmpty(ActiveCell) Then
EiTupla.Add ActiveCell.Value, CStr(ActiveCell.Value)
If i = 1 Then Exit For
ActiveCell.Offset(-1, 0).Select
End If
Next
Exit Sub
virhe:
ActiveCell.EntireRow.Delete
Resume Next
End Sub