运行时错误1004。对象工作表的方法范围失败

Question

我得到

  

运行时错误'1004'：对象'_worksheet'的方法'range'失败

我假设这是它所在的行

Set datarng = purchfcst.Range("A2:Q" & datalastrow)

我不确定是什么错误，因为我看不到错误

Sub updatepacksizecostandorders()

Dim cofws As Worksheet, purchfcst As Worksheet
Dim coflastrow As Long, purchlastrow As Long
Dim datarng As Range


Set cofws = ThisWorkbook.Worksheets("COF Replen")
Set purchfcst = ThisWorkbook.Worksheets("purchase forecast")

coflastrow = cofws.Range("G" & Rows.Count).End(xlUp).Row
purchlastrow = purchfcst.Range("A" & Rows.Count).End(xlUp).Row

Set datarng = purchfcst.Range("A2:Q" & datalastrow)

For x = 2 To coflastrow
    On Error Resume Next
    cofws.Range("G" & x).Value = Application.WorksheetFunction.VLookup(cofws.Range("A" & x).Value.datarng, 2, False)


Next x


End Sub