Warum so kompliziert!
Ein Ansatz!
Sub NoDuplikate()
With Worksheets(1)
.Range("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Range(.Cells(2, 1), .Cells(.Range("A" & Rows.Count).End(xlUp).Row, 1)).Copy .Cells(2, 11)
.Range("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
.Range("A:K").Columns.AutoFit
End With
End Sub