Search through single row for string then cut and paste whole column

I've been working on this trying to piece together code I've found in several searches. What I am trying to do is just search "A1:Z1" for five different strings (this is my header row). Once the string is found, I want the whole column to be cut and pasted in a specific order each time.

I don't really know VBA but can usually do some reading to find out how to get the job done but this time I think this is a little beyond me.

Here is what I have so far:

Please Login or Register  to view this content.

Where exactly do you want the columns to go?

Try this - I assumed that in the end you want String1 in the front and String 5 in the end - if you want it the other way around, change "For i = 5 to 1 Step -1" to "For i = 1 to 5"

Please Login or Register  to view this content.

Please click the * below if this helps

This will find all the headers and then paste them into Sheet2 in order, starting from column A.

Please Login or Register  to view this content.