Copy values until blank row

Hi again,
I have been very successful in this forum when asking for help. So thanks in advance for the following.

I have two sheets and I am copying values from sheet 1 to sheet 2. The values to copy are based on the column titles, row 6 in sheet 1 and row 2 in sheet 2.
The formula I am using to populate sheet 1 is the following because sometimes the titles change places
=INDIRECT(ADDRESS(ROW(E3),MATCH(E$6,Sheet2!$2:$2,0),,,"Sheet2"))

The problem is that I have to copy down the formula manually. What I would like to have is some sort of VBA code that copies the values depending on the size of the columns in sheet 2. i.e. until it finds a blank row in sheet 2.

Note: the code should be able to understand when the columns change the titles position, as it is doing now.

sheet1
sheet1.jpg

sheet 2
sheet2.jpg

Thank you,
Pedro

Hi Pedro

There's a rather large percentage of we Forum Members who are unable to view png files on this Forum. It's been an issue for some time now.

Your best bet is to attach your File.

(Attribution to Leith Roth)
To help you with this problem, you need to post your workbook.

This allows solutions to be tested using your code and not on code recreated based on your post.
If your workbook contains any sensitive information, please redact that information before you post.

How To Post Your Workbook

• At the bottom right of the Reply window, Click the button Go Advanced
• At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
• Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
• Click the Select Files button at the bottom middle of the dialog.
• In the new window Find the file you want to upload, select it, and Click Open.
• You will now be back in the File Manager dialog. Click the bottom Middle button Upload File

.
Wait until the file has completely uploaded before you exit the File Manager dialog.

Hi Pedro

Yes, I can now see them...can't do anything with them.