For循环

Question

所以我得到了一个

  

应用程序定义或对象定义的错误

我真的无法弄清楚为什么。我的for循环在j=1时运行良好但在j=2时它已经崩溃了。基本上我正在尝试做的是：

我有来自另一张“材料”的存储值我希望它在单独的工作表上查找，在D列中找到该值并将信息存储在A列和B列中。我希望它在找到后停止搜索第一次出现，这就是为什么我把if check = true放在那里。

任何人都可以帮我解决这个错误吗？

With ThisWorkbook.Sheets("Admin")
j = 0
Set ProcCell = .Range("D2")
    numproc = .Range("C2", .Range("C2").End(xlDown)).Rows.Count
        Do While check = False
            For j = 1 To numproc
                If check = True Then Exit For
                If ProcCell.Offset(-j, 0).value = Material Then
                    procStaticID = ProcCell.Offset(-i, -3).value
                    firstInstructionID = ProcCell.Offset(-i, -2).value
                    check = True
                End If
            Next j
        Loop
End With