Copy and Paste Loop but keeps stopping

Hi there,

I have a table within my worksheet (example attached), and what I want to do is copy and paste data from individual columns so that they are listed underneath each other. So I basically want to cut the data in column 'Example 1' and paste them under the data in column 'Example', then delete the column it has just cut the data from, so that it shifts the columns to the left. Then I want to loop this process so that it cuts the data from column 'Example 2' and paste it under the data that I pasted from 'Example 1'. This is the code I'm using:

Please Login or Register  to view this content.

My problem is I get an error when it gets to Range("Paste3").Select. I tried to correct the problem with Range("C" & FinalRow9).Select, but it keep overwriting the data it has just cut and pasted from the previous column. I would appreciate any help you could give me on this.

Thanks!

Is this solved?

If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit.