Importing defined columns from selected workbook sheets

Greetings again

I'd like to open a openfile dialog and select a specific workbook, then on Sheet1 of that workbook copy specific column into the current workbook under a newly created sheet name "TESTSHEET"

I've been working with this code but so far I'm unble to select the specific columns I want and copy them over.

Question:
I want to copy Ranges C1:F?, J1:K? where the ? is the last datarow in column D of customerWorkBook.WorkSheets(1) and paste it to Range B1:G? of targetWorkBook("testsheet")?

Please Login or Register  to view this content.

Additional question;

I have 20 checks to make, if true, then insert 2 entire rows.

I think this should be a While, If Then function, but I'm not sure how to form it.

Please Login or Register  to view this content.

This portion of thevba code works, but its obviously very bulky

Any way to clean this up?

I had to add lastrow=lastrow+1 to account for the extra spaces being inserted or the function stopped at the original lastrow value which left several sections without row spaces.

Please Login or Register  to view this content.

Still on this bit of code, time to take a break.

In the vba code section of Sheet1
partial code,

Please Login or Register  to view this content.

I need to pass the variables;

Please Login or Register  to view this content.

Over to the "EPB_Template" Sheet to handle the variables there;

Please Login or Register  to view this content.

With the sheer amount of repetition, I still cannot find a workable loop to cut this down.

Any suggestions?