Reorganize columns order

[plans]

Hello,
I have a spreadsheet with multiple columns.

The columns always have the following titles:
Subject | Location | Width| Height |Ea|
However, the columns are always organized in a random manner ( for ex, it could be
Ea | Width| Location |Height | Subject| or any permutation).

I need a macro to organize the columns by the order noted above, by shifting the title along with all the corresponding contents.

I could write a cumbersome nested loop and “if” procedures, but I am sure, there is a simple way to do this.
Any ideas?

Thanks

[jolivanes]

Try
Change references(sheet names etc) as required

Please Login or Register  to view this content.

[plans]

Nice!
Thank you jolivanes!

[jolivanes]

Thank you for letting us know and good luck.

Another possibility.

Please Login or Register  to view this content.

You can Insert and Delete whole columns but I prefer to use only whatever is required.

[Rick Rothstein]

The readers of this thread may find it interesting to find out that you can do what the OP wants without using any loops! As a matter-of-fact, you can do it with just a single line of code (albeit a rather long one)!

Please Login or Register  to view this content.