macro to delete duplicate rows using Filter

[Guest]

I am trying to create a macro to delete the duplicate rows in a sheet using
the Filter Unique Records Function. The following is the macro I have tried.
I keep getting an error at "ActiveSheet.Paste".

The duplicate data will not always be in side-by-side rows, and I cannot
sort the data without loosing the original order of the data.

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select


I would really appreciate any suggestions.

Thanks,

Lost In Alabama

 

[Ardus Petus]

Yo get an aeeror on ActiveSheet.Paste because there is nothing to Paste!

HTH

 

[Guest]

So how do I select the copied sheet in the Clipboard...I have tried this, but
still get an error: