Excel 2007 : Macro to copy columns based headers

Hi, I want to copy data from one sheet to another based on the headers.

I have 3 sheets, on the ranking tab I am ranking the orders, and on the raw data I have a formula in cells B1:G1 that bring that rank over.

I need to be able to click a button anytime I change the ranking tab so that the columns copy to the hierarchy in the order I have column B1:G1.

I have attached what it should look like...since I ranked "Grapes" as 1, then raw data shows a 1 in the first row and it would copy to the "1" column on hierarchy with the macro.