VBA动态公式难倒

Question

我正在处理一个较大的宏中的一小段代码，这让我很难过。

当我运行它时，我得到运行时1004错误应用程序定义或对象定义错误。

有人可以指出我的代码不正确吗？我假设我在第8行发了一个错误，我定义了范围。

LastCol正确计算（结果当前值为4）。

目的是让宏填充当前标签，第37行和第3行。 38列i，其中包含工作簿中第41行和第42行LastCol。

中每个工作表的数据

谢谢！

Sub col_count()


n = ActiveWorkbook.Sheets.Count

Dim LastCol As Integer
    With Sheets(2)
        LastCol = .Cells(41, .Columns.Count).End(xlToLeft).Column
End With


For i = 2 To n
Range(Cells(37, i), Cells(38, i)).Value = Sheets(i).Range(Cells(41, LastCol), Cells(42, LastCol)).Value
Next i

Rows("37:38").NumberFormat = "#0.00%"




End Sub