Macros - Delete Columns, Cut & Paste Columns then Sorted by Column

[M12NIX]

I have a report that requires manipulation. It has entries from columns A-AU. Firstly I need the following columns deleted,

B,D,F,H,I,K,N-Q,S-U,Y-AU (As shown in the attached example in Sheet2)

Then the columns have to be moved as follows: (old position then new position)

A - A,
D - B
B - C (Simply by moving D-B I guess)
E - D
I - E
K - F
J - G
G - H
F - I
H - J
C - K

(Final example is in Sheet3)

Finally all records need to be sorted by column B.


Any help would be hugely appreciated.