使用行号和列号将范围复制到另一个工作簿？

Question

我想将特定行和列号的一系列单元格复制到工作簿的特定工作表。

Sub test()
Dim x As Workbook
Dim y As Workbook
Set x = Workbooks("Book4.xlsx")
Set y = Workbooks("Book5.xlsx")
y.Worksheets("Sheet1").Range("A1:A5").Paste = x.Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 5)).Copy
End Sub