Search cells for a string and when that string exists copy entire cell to another cell

[nitro535]

I have a spreadsheet where I need all the data of one type in its own column.
Currently the data appears randomly in any column.
The data literally has (D), (B), (A), (L) next to it in each cell like this:

ColA ColB ColC ColD
(D)30 (B)10 (L)100 (A)45
(A)6 (D)21 (B)92 (L)2
(L)3 (A)64 (B)9 (D)65

So what I need to do is take all of the contents of each cell and line it up like this within the same row the data is found in like this:

ColE ColF ColG ColH
(A)45 (B)10 (D)30 (L)100
(A)6 (B)92 (D)21 (L)2
(A)64 (B)9 (D)65 (L)3

I have tried all sorts of mid, find combinations and I cant get it to work right.

Thank you in advance for any help!

Edit to add example file
http://magicmolder.com/sample.xls
What I am trying to achieve starts in column O and goes to the right.