Copying data from one WB to another?

[afc171]

Hi guys, I have this code running but when it comes to pasting in B2 I keep getting an error: 348

I just need to copy the cells in columns from A2 to C2 then down to the last empty row and paste into V2 file in B2

Sub Copy()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

'Copies Product info:
     lastCol = ActiveSheet.Range("A2").End(xlToRight).Column
     lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row
     ActiveSheet.Range("A2", ActiveSheet.Cells(lastRow, lastCol)).Copy

'Now, paste to y worksheet:
     Workbooks("V2.xlsm").Worksheets("Input").Range ("B2")
     
End Sub

Must be a way, someone else made this but cannot work out the copy part as it wants to copy past B2?

Thanks

 

[Fluff]

How about

Sub Copy()
Dim x As Workbook

Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

     lastcol = Cells(2, Columns.Count).End(xlToLeft).Column
     LastRow = Cells(Rows.Count, lastcol).End(xlUp).Row
     Range("A2", Cells(LastRow, lastcol)).Copy x.Sheets("Input").Range("B2")
End Sub

 

[afc171]

Thanks Fluff,
It goes to the other sheet but nothing is being pasted?

 

[Fluff]

Do you just want columns A:C & will col A always have data for every row?

 

[afc171]

Yes Fluff, Column A will have data but can be any amount of rows

 

[Fluff]

Ok, how about

Sub Copy()
Dim x As Workbook

Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(, 2)).Copy x.Sheets("Input").Range("B2")
End Sub

 

[afc171]

Ok, how about

Sub Copy()
Dim x As Workbook

Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(, 2)).Copy x.Sheets("Input").Range("B2")
End Sub

Not copying anything over, I tried on a blank workbook just incase, but it does not copy the Product data for some reason.

 

[Fluff]

How about

Sub Copy()
Dim x As Workbook
Dim Rng As Range
Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(, 2))
Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

Rng.Copy x.Sheets("Input").Range("B2")
End Sub

 

[afc171]

How about

Sub Copy()
Dim x As Workbook
Dim Rng As Range
Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp).Offset(, 2))
Set x = Workbooks.Open("O:\Public\Ads\1\V2.xlsm")

Rng.Copy x.Sheets("Input").Range("B2")
End Sub

Excellent that works, thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback