Macro to Sort Column Contents So That All Data Lines Up Accordingly

The attached workbook is laid out as follows: Blue section is unsorted data, Green and Red Sections are Columns A & B split up using Text to Column feature. Looking at the green columns, you can see that there is a lot of repetitive data, but it's scattered. I'm trying to get the similar information in one column. Example: "B7" is in about three or four different columns. I want to try getting it in one. Is there a macro that can do this? Not just for B7, but for all "like data". Would greatly appreciate the help. Tks.