复制工作簿并粘贴到新工作簿中

Question

I'm trying to open a workbook FName from a folder and copy a range from it and paste into a new workbook WBNew , but i keep getting error

Subscript out of range or 1004 - Application defined

error.

Any idea why ?

Sub NewNumbers()

Dim FName As Workbook, WBNew As Workbook

Set FName = Workbooks.Open(Range("C3") & "\" & Range("C2"))
Set WBNew = Workbooks.Add

FName.Worksheets("Numbers").Range("U2", Range("U2").End(xlToRight)).Copy    
WBNew.Sheets("Sheet1").Paste

End Sub

Answer 1

Copy >> Paste is a 1-line Command, also define a Range in "Sheet1" to paste.

Dim NumbersSht As Worksheet

' set the copied sheet object
Set NumbersSht = FName.Worksheets("Numbers")

With NumbersSht
    .Range("U2", .Range("U2").End(xlToRight)).Copy Destination:=WBNew.Sheets("Sheet1").Range("A1")  '<--- Modify "A1" to your desired range
End With