Converting 1 set of columns to 2 sets or more: Example Attached

As an option- a code
I have copied the data you have in sheet1 up to a couple of hundreds rows to test the code. There is a button on sheet1 and the result is in sheet3.

the macro is cool and I see what you did in the code so i can modify it, but for the novice - can you modify it to ask (when you press "Run") how many rows I want in the column and autosize based on that parameter?