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

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.

Try

Please Login or Register  to view this content.

Thank you so very much. Is the code in there to sort by column B at the end because if so it isn't working.

Please Login or Register  to view this content.

Hi Jindon, I'm ever so sorry to bother you but I need to edit the code you provided for me and I'm at a loss as to why it isn't working as I do not understand the last section. I have been asked to add a couple of columns that we'd previously deleted. These are H & K. I've amended the range value below and provided the new order but it doesn't work.

Please Login or Register  to view this content.

Also, apologies for not adding reputation or saying thank you previously. I have a few other threads going and this was an oversight on my part.

See if this how you wanted.

Please Login or Register  to view this content.

I'm getting an error... Subscript out of range.

........................

Thank you but this seems to be the same outcome as before. I am missing columns H & K. (Segmento and T.Cto) which need to be in positions 10 & 11 on the final report.

Then add to the list wherever you need them.
e.g.

Please Login or Register  to view this content.

Really really sorry to bother you again but I have been asked for one final change. I need to keep the Notas column (AU) and have it to the far right of the new report. I've added it into the code above but it isn't working. What do I need to change in the remainder of the code. Thank you for this and thank you for your patience.

Show me the line that you made the change.

Please Login or Register  to view this content.

MUST be identical.

Please Login or Register  to view this content.

Doh ! Thank you so very much kind sir.