Brisanje vrstic s podvojenimi podatki

[mipax]

Zanima me kako bi najlažje pobrisal vrstice s podvojenimi podatki v določenem stolpcu.
Pustil bi rad samo prvo vrstico od več enakih.

[cedra]

Koda: Izberi vse

Sub brisi_podvojene_vrstice()
Dim i, j, k As Integer
k = WorksheetFunction.CountA(Range("A:A"))
Application.ScreenUpdating = False
    For j = 1 To 6 'povečaj (6), če bodo še vedno ostajale
                   'podvojene vrstice po prvem zagonu makra
        For i = 2 To k
            If Cells(i, 1) = Cells(i - 1, 1) Then
               Cells(i, 1).EntireRow.Delete
            End If
        Next i
    Next j
 Application.ScreenUpdating = True
   
End Sub

Mislim, da bo koda zgoraj pomagala