Makro spørgmål dubletter

Prøv denne:

Sub sletDubletter()

række = 0
Do
    række = række + 1
Loop Until (Cells(række, 1) = "")

x = 0
For n = 1 To række
    If Cells(n - x, 1).Value = Cells(n + 1 - x, 1).Value Then
'        Cells(n - x, 1).Select
        Rows(n - x).Delete
        x = x + 1
    End If
Next n

End Sub

Hej søde Lone,
mener du ikke kolonner ? i stedet rækker

hilsen
444

Hej rvm og andre
Jeg har stillet et forkert spørgsmål, for det er ikke rækker men kolonner jeg har i mit ark og desuden har jeg kun excel på engelsk der må jeg jo nok stille opgaven på ny.
sorry