Copy Range to another sheet in last open column

[blimes]

I have a vba macro that runs and solves some thing that puts data in to Columns A:C which i then paste to sheet 2 in columns A:C. Now the macro returns to sheet one and keeps running and puts a different set of data in Columns A:C on Sheet1 how do i get this to automatically copy to the first blank column in Sheet2. It does this many times over which is why I'm looking to copy to the first blank column?

Thanks
Adam

 

[My Aswer Is This]

Please show us the code you are now using.

 

[My Aswer Is This]

Try something like this to copy Column 1 to 3 of Sheet1 to Columns on Sheet 2
This assumes you always have values in Row(1)

See Last Column

Sub Copy_Range()
'Modified 6/28/2018 12:20 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastcolumn As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To 3
    Lastcolumn = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Sheets(1).Columns(i).Copy Sheets(2).Columns(Lastcolumn)
Next
Application.ScreenUpdating = True
End Sub