|Try this code.|
The first time it pastes into a blank sheet, it will put the data in Column 2. After that it will paste into 3, 4, 5, etc.
If you need the data pasted into Column 1 the first time, let me know and I can modify the code to make that happen.
' TransferOfData Macro
Dim NextCol As Integer
NextCol = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column + 1
With Sheets(2).Cells(1, NextCol)