using a macro to delete duplicate data (cells)
 

I have a huge worksheet that contains duplicate data. I want to sort the
data by the ID column in order to list the duplicates together (i.e. ID #123
in row 1 and ID #123 in row 2). After sorting the data I want to delete the
duplicate row. (i.e. delete row 2). How can I use a macro to do this?