Macro to use existing code but paste into next empty column

Hi everyone, thanks to your help I've been able to get this far. But I just have one more question.

Here is my current code:

Please Login or Register  to view this content.

It's taking multiple columns from a specific worksheet and pasting them into one column on a different worksheet.

But I need to be able to run the macro several times and each time have it paste into the next empty column.
So say after running the macro three times I have three separate columns.

As of right now the macro just pastes the data beneath the same column instead of moving over.
I think this belongs in the code somewhere: End(xlToLeft).Offset(0, 1).Select

I just can't figure it out.
Thank you in advance for your help!!

Hello rmmohan,

Posting your workbook is the quickest way to get answers to your questions.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

File Manger Picture

Hello rmmohan,

Then I should mark this post as Solved?