Doppelte Datensätzen löschen

Sollte eine Tabelle und deren ganzen Zeilen via Makro löschen,
wenn in Spalte A2:A150 ein Datensatz doppelt vorkommt.
Ab A2 deshalb, da A1 die Überschrift enthält.

Bitte keinen Sonderfilter sondern ein Makro.

Besten Dank vorab.

Gruß C.

probiers mal hiermit:
Sub Filtern()
With ActiveSheet.UsedRange
.Sort Key1:=Range(„A2“), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Cells(1, .Columns.Count + 1), Unique:=True
.EntireColumn.Delete
End With
End Sub
aber bitte probiers mit einer Kopie deiner Datei!!!
habe dieses Makro nämlich noch nicht ausreichend getestet