Alphabetically Order list

Please refer to attached excel sheet.

I need a VB Macro to perform following task..

Sheet1 column 1 shows Company names....some companies listed multiple times
From here i wanted to create alphabetically Company names listed once...in Column 2


Let me know if you have any questions.

Looking forward for the solutions and always appreciate your help.

Thank you

Riz Momin