I tried to copy the contents from the clipboard using Ctrl-A then Ctrl-C and the codes below worked. When I copied it, clear the contents of the cells and then pasted it, I couldn't because it did not retain the contents from the clipboard after clearing the contents of the entire cells. Anyone? Thanks.
Sheets("Sorted").Select
Cells.Select
ActiveSheet.Paste
Sheets("Data").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Sorted").Select
Cells.Select
ActiveSheet.Paste
Sheets("Data").Select
Cells.Select
Selection.ClearContents
Range("A1").Select