Search by columns headers and paste all matching columns to another sheet

Hi, would you help me with a macro (because I think there is no other option) which will allow to:

1. Find a match picked from a dropdown list (sheet2) among column headers in sheet1
2. Copy all columns which will match
3. Paste those in sheet2 all next to each other

For Example, if in sheet2 from dropdown list was chosen "Wera", then macro looks into each column headers in sheet1 to find match, then it will copy all columns (header and data) and paste in in sheet2.
Please take a look on the file that I've prepared. In real file there is much more columns and rows.

Thanks,M.