object requied (kod hatası)

[emre eller]

Değerli arkadaşlar mükerrerleri kaldırmak için bu kodu buldum ben kod yazmayı bilmiyorum ama kod bu hatayı vermekte yardımcı olur musunuz?
Sub Mükerrer()
Dim i As Integer
Dim Say As Integer
Dim Sıra As Integer
Dim Değer As Integer
Dim Mükerrer As Integer
Dim Mükerrer1 As Integer
Dim ilk As Integer
Dim satır As Integer

Say = WorksheetFunction.CountA(VERİ.Range("A:A"))
For j = Say To Step - 1
Mükerrer = WorksheetFunction.CountIf(VERİ.Range("A:A"), VERİ.Cells(j, 1))
If Mükerrer > 1 Then
Sıra = VERİ.Range("A:A").Find(VERİ.Cells(j, 1), , xlValues, xlWhole).Row
Değer = VERİ.Cells(Sıra, 1).Value
For i = Say To 2 Step -1
Mükerrer1 = WorksheetFunction.CountIf(VERİ.Range("A:A"), Değer)
If Mükerrer1 <> 0 Then
satir = VERİ.Range("A:A").Find(Değer, , xlValues, xWhole).Row
VERİ.Cells(satir, 1).EntireRow.Delete
Else
End If
Next i
Mükerrer = 0
Else: GoTo git:
End If
git:
Next j
End Sub