Macro to copy columns and paste into one column in next blank column

Sorry if my title is confusing!

I have multiple columns of data all on the same worksheet, in my example file it's called "Data". I need them to be copied and pasted into a different worksheet, "Collection", but be formatted so that they're "stacked"
If there are blanks in the column I need those to copy over as well as the column titles. Also each time the macro is run it paste into the next empty column in the tab Collection. This way I can have an ongoing trend being created.

I have searched for the answer and come close a couple times but it's never exactly what I need. I hope you can help!!

Thanks in advance!!