Doppelte Zeilen löschen

Sub doppelteLöschen()
   Dim LastC As Long, x As Long
   LastC = Range("a65536").End(xlUp).Row
   For x = LastC To 1 Step -1
       If WorksheetFunction.CountIf(Range("a1:a" & x), Cells(x, 1)) > 1 Then
           Cells(x, 1).EntireRow.Delete
       End If
   Next
End Sub

Die For … Next-Schleife fängt bei der letzten beschriebenen Zelle an. Das wird erreicht durch:

LastC = Range("a65536").End(xlUp).Row

Quelle