Duplicate rows delete and moving cells

Hi guys!

I have a long list (16000 words) that contains plenty of words along a column (A) that I need to sort through and delete duplicates.

It looks like this: (words are column A, Cell addresses column B and worksheet names (Home, Page 2 and Order) are column C

rock,$B$3,Home
money,$B$4,Home
sleep,$B$6,Home
blue,$B$7,Home
rock,$B$8,Home
honey,$D$8,Home
eat,$D$9,Home
read,$D$10,Home
rock,$E$13,Home
beard,$E$14,Page 2
woman,$E$15,Page 2
rock,$D$16,Page 2
honey,$E$16,Page 2
clean,$C$18,Page 2
sleep,$E$18,Page 2
rock,$G$18,Order
beard,$I$18,Order
band,$K$18,Order
camp,$M$18,Order

I need it to show up like this... (Commas denote cell breaks) (The # sign is to let another macro know the difference between cell address and worksheet)

rock,$B$3#Home,$B$8#Home,$E$13#Home,$D$16#Page 2,$G$18#Order
money,$B$4#Home
sleep,$B$6#Home,$E$18#Page 2 ...etc

I already have some code that I was playing with attached but I can't seem to get it to work.

Can anyone help me?

Thanks!

Sar