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