对象工作表的方法范围错误1004

Question

该宏应该找到名为“其他工作”的选项卡，将单元格的范围从B1复制到第4列（尽管最后一行不为空），然后将其粘贴到其他工作簿中。 wb在先前的代码中定义。

我收到该行的“对象工作表的方法范围失败”错误

Set CopyForm = Current.Range(Cells(2, 1), Cells(OLRow, 4))

这里是上下文：

Dim lRow As Long
Dim CopyForm As Range
Dim Current As Worksheet
Dim OLRow
Set Current = wb.Worksheets("OtherWork")

OLRow = Current.Cells(Rows.Count, 1).End(xlUp).Row
If OLRow > 1 Then
Set CopyForm = Current.Range(Cells(2, 1), Cells(OLRow, 4))
Workbooks("Time Report.xlsm").Activate
Worksheets("ALLOtherWork").Activate
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lRow, 1).Offset(1, 0).Resize(OLRow - 1, 4).Value = CopyForm.Value

End If

一旦发生错误，如果我手动选择OtherWork选项卡并运行它，则在打开文件的调试模式下，不会发生任何错误。但是，如果我没有选择该选项卡，则错误会不断弹出。

任何帮助将不胜感激。 谢谢！