Reverse the order of a macro the rearranges columns

I have a macro (I do not recall where I got this) that Rearranges the order of columns on a sheet which can have hundreds of columns by an array of header names

So if the array of headers is

Please Login or Register  to view this content.

then my sheet would look like

front.png

But I often need to place the columns at the END of the sheet
So if the array of headers is

Please Login or Register  to view this content.

then my sheet would look like
reverse.png

But I can not figure out how to alter the Sub and/or function to do this

Thank you in advance for your help with this
(I have a macro that does this with pasting and cutting but is extremely slow on sheets with lots of columns)

Please Login or Register  to view this content.

Einarr,
Try

Please Login or Register  to view this content.

Can you change one line in "Function GetOrder"

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Jindon, that fixes the problem. Thank you!

I like the idea of being able to choose to sort to the front of the sheet or the end of the sheet so I changed the function slightly for any one interested

Please Login or Register  to view this content.