Copying multiple ranges and inserting below

Is there a way to copy multiple ranges and paste the format in the cells below? I tried to use the Union function in the code below:

Please Login or Register  to view this content.

I was only getting the first column to paste and I don't like all of the select commands. My work around is a lot of lines for a simple command.

Please Login or Register  to view this content.

Any help is appreciated.

I found a solution by dimensioning another range before using the union function. It condenses the code down a little.

Please Login or Register  to view this content.