VBA - 将值从一个工作簿复制到另一个工作簿，找到真正的上次使用的行？

Question

我有两本工作簿。练习册A和练习册B. 我试图将一些值从工作簿A复制到工作簿B.

练习册A：

A                 B      ......   Q
Value
Value
Blank Cell
Value
Value
Blank
Blank
Blank
etc

我在工作簿A中的范围从第9行开始，从第A列开始到Q.

工作簿B中的范围是相同的。

我只想复制上次使用的行范围，但我的列中可能有一些空白，所以将所有数据复制到真正的最后使用的范围/行非常重要。

我正在使用的代码不会产生错误，也不会复制任何内容。请有人告诉我我哪里出错了吗？

代码：

Sub Repair()
UserForm1.Show
End Sub



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

'## Open both workbooks first:
Set x = Workbooks.Open("B.xlsm")
Set y = Workbooks.Open("A.xlsm")

'Now, copy what you want from x:
x.Sheets("A").Range("A9:Q" & Rows.Count).End(xlUp).Copy

'Now, paste to y worksheet:
y.Sheets("B").Range("A9").PasteSpecial xlPasteValues


y.SaveAs fileName:=Application.ThisWorkbook.Path & "\Food Specials Delivery Tracker TEST.xlsm", FileFormat:=ThisWorkbook.FileFormat


'Close x:
x.Close
y.Close

End Sub