Search, Copy and Paste selections of a column

Hey,
I'm trying to write a macro with a button in the workbook that has the headings of all my column (which are in row 5) in a drop down menu. When a heading is selected I would like the macro to go the column with that heading and copy a selection below. The various columns are spread of multiple sheets.

So for example:

Apples Bananas Pears
1_________2______3
1_________2______3
1_________2______3

I would like a button with the options (Apples, Bananas, Pears), after selecting Bananas I would like it to copy and paste the column into column x.
Edit: I have also attached an example workbook.

Thanks.