VBA Excel loop problem.

Kære Eksperter. Håber jeg smider spørgsmålet i den rette kategori. Jeg mener at det er mere kode orienteret end Excel orienteret.

Jeg har et excelark, hvor der er en masse duplicates. Jeg vil gerne fjerne alle dem som IKKE er duplicates. Til det har jeg fremstillet følgende:

Sub Remove_Singles()
    Dim x As Variant, y As Variant, z As Integer, o As Integer
   
    z = 0
    o = 0
   
    For Each x In Selection
        o = o + 1
        For Each y In Selection
            If x = y Then z = z + 1
        Next y
       
        If z < 2 Then Cells(o, 1).EntireRow.Delete
       
        z = 0
    Next x
    MsgBox "Done"
End Sub

Det fungerer egentlig udmærket, den fjerner alle singles. Problemet er bare, at det er som om at den stopper midt i loopet. F.eks med følgende data:
d
d
e
f

Bliver resultatet:
d
d
f

Hvorfor fjerner den kun e, og ikke også f? Det er som om den stopper efter at have fjernet e.

På forhånd tak.