Copy Column Values to Rows with Spacing

Hello, I'm attempting to write a vba code that will copy the contents from specific columns over into rows on a separate sheet and start a new row for each column item added. Difficult to explain but if you look at the attached spreadsheet you'll see that I'm wanting to copy from the "Source" sheet over to "Destination" sheet. Essentially swapping column to row data but the addition of a row for each "image" cell content requires an additional row which complicates it. I attempted to use the Macro recording feature but cannot get it to repeat for the entire sheet which is roughly 115k rows.


There's probably a much simpler way to go about doing this then the poor attempt at code I've attached.

Any help you can provide is appreciated.

Please Login or Register  to view this content.

Here is my quick and dirty implementation purely in VBA:

Please Login or Register  to view this content.

Try

Please Login or Register  to view this content.

Just for fun I tried all 3 different code solutions and here are the runtimes of each (3 runs average):

Mine: 0.01171875
JinDon: 0.0234375
Mohan: 0.0390625

Pretty similiar in execution time, so unless you work with massive amounts of data every solution should be equal at this part :D

I have a I6700k, would love to know the runtimes with different systems

So, for some reason I couldn't get the power query to work correctly for me. It may have just been my in experience using it.

However, the VBA code from banaanas worked like a charm. Thank you everyone for the assist and suggestions.

Please Login or Register  to view this content.