運行時錯誤填充值時，到另一個工作簿，直到最後一排

Question

我運行一個代碼名稱粘貼一個工作簿到另一個自動填充，但在運行時我得到運行時錯誤9代碼，這裏是示例代碼

Sub test() 

Dim WB As Workbook 
Dim lstRow As long 

workbook.open("path") 
Set WB = activeworkbook 

lstRow = Range("M2").End(xlDown).Row 
ThisWorkbook.Activate 
Worksheets("Sheet1").Range("G3").Copy 
WB3.Sheets(("I2:I") & lstRow).PasteSpecial xlpastevalue 

End Sub 

Answer 1

OPTION EXPLICIT 

Sub test()  
    Dim WB As Workbook 

    Set WB = workbook.open("path") 
    with WB.WorkSheets("Sheet1") 
     With .Range(.Cells(2, "M"), .Cells(.rows.count, "M").End(xlup)) 
      .Offset(1, -6).Resize(.Rows.Count -1, 1) = ThisWorkbook.Worksheets("Sheet1").Range("G3").Value 
     End With 
    End With 

End Sub