Tekrarlayan kayıtları silen macro

Sub tekrarli_kayit_sil()
Cells.Sort Key1:=Range("A1")
toplam_satir = ActiveSheet.UsedRange.Rows.Count
sayac = 1
For Row = toplam_satir To 2 Step -1
  If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
     Rows(Row).Delete
sayac = sayac + 1
End If
Next Row
End Sub