VBA code to sort by list and then delete simliar rows only in one column

[jassybunny]

I have a spreadsheet that gets data from another source, and the rows change, the columns do not (there are columns A:X). I need the Column B to merge if the text is the same in column B. The rows must be sorted by the area (a custom list OR array?). Here is an example:

Raw Data:
Col A***Col B******Col C Etc.
0100***AreaOrange
0103***AreaOrange
0105***AreaOrange
0108***AreaPurple
0121***AreaPurple
0147***AreaPurple
B124***AreaPink
B127***AreaPink
0136***AreaOrange

should look like

Col A*****Col B******Col C Etc.
0100*****AreaOrange
0103*****
0105*****
0136*****
0108*****AreaPurple
0121*****
0147*****
B124*****AreaPink
B127*****

I have pretty limited experience with VBA/Excel, and any help would greatly be appreciated. They are not to be sorted alphabetically, but rather by the area itself. Some days not all areas will be used (therefore not on the data list, but still needs to be on the worksheet) and those should say the word "Out" instead of being blank. If attaching the data to the thread helps, let me know. This is what I am thinking:
so perhaps a nested IF
Array of Areas
if area = areaorange, sort row
if area = areapurple, sort row

if area = area in same column, delete row underneath

something like that? please help! thank you!

 

[jassybunny]

I forgot to mention that this is for Excel 2003.