Rearrage columns based on user input

[runnerD2016]

I am interested in a macro that rearrange columns based on user input. I have several users that use different files but I need them all to work in one similar file. What I want to do is, with a click of a button, arrange the Result tab in the order that is shown on the Controls tab in row 4. So when you look at the results tab, you see 1 - 14. When you look at row 3 on the Controls tab you see the positions, and that I want to 13th column in position 1, 14th in position 2, 1st in position 3, etc. When the button is pressed, the columns should rearrange (keeping any formulas), such that the order of the number on the results tab match row 4 on the controls tab. The yellow cell is a changer cell for Team, so if I change that to like 10, or 211, or 30, and press the button, it will rearrange based on what that team wants.

[LeoTaxi]

This 1 after button

Please Login or Register  to view this content.

[PCI]

Here a possibility

Please Login or Register  to view this content.

[runnerD2016]

Thanks for the help with this. I really appreciate it.

I am getting a runtime error 13, type mismatch at:
WkCol = Evaluate("=MATCH(" & Rg & "," & HR & ":" & HR & ",0)")

Do you know what I might need to do to fix this?