VB编程调试运行时错误

Question

我对Excel中的VBA完全陌生。 下面是我的代码，每当我尝试运行它时，它都会说：

“运行时错误'424'：必需对象”。

我不知道该怎么办，有人可以帮我吗？

Private Sub Workbook_Open()

Dim a, b, LastRow1, LastRow2 As Integer

LastRow1 = Sheets("BOM2").Range("A" & Rows.Count).End(xlUp).Row
LastRow2 = Sheets("SKU").Range("A" & Rows.Count).End(xlUp).Row

For a = 2 To LastRow1
 For b = 2 To LastRow2

If Sheets("BOM2").Cells(a, "D").Value = Sheets("SKU").Cells(b, "D").Value Then
  Sheets("SKU").Cells(b, "D").EntireRow.Copy Destination:=Sheets("Final").Range("A" & Row.Count).End(xlUp).Offset(1)

End If
Next b
Next a

End Sub

Answer 1

Range("A" & Row.Count) 

应该

Range("A" & Rows.Count)