Kod:
On local error resume next
With Sheets("sayfa1")
.Range("A1:a" & .Range("a65536").End(3).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Range("A1:a" & .Range("a65536").End(3).Row).Copy Sheets("sayfa2").Range("a1")
.ShowAllData
err.clear
End With
bu kodu denermisiniz.