Excel 将公式结果复制到行中最后一个单元格间歇性失败

我编写了一些VBA代码，它为我准备了一个csv文件，这样我就可以为我拥有的每个模型在上面运行单个宏。问题是，每一列都有重复的数据，而不是复制公式的结果

起初我认为这一定是内存问题，就像我重新启动并再次运行它一样，它表现得非常完美。今天早上，无论我重新启动了多少次，即使在我的Mac上启动到安全模式，它仍然在相同的列中出现相同的错误

当它不能正常工作时，出现在CopyFormulaDowntoAstrowofData宏中。它应该一路复制公式的结果；因此，每个单元格中的结果都应该是该单元格的结果，但结果却是第一个单元格向下复制的结果。下面是该特定宏的代码

Sub CopyFormulaDownToLastRowOfData()
  Dim LastRow As Long
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  With Range(ActiveCell, Cells(LastRow, ActiveCell.Column))
    .FillDown
    .Value = .Value
  End With
End Sub

有人看到它有什么问题吗

---

提前感谢

不要使用

ActiveCell

…无需使用FillDown。您可以在整个范围内一次性输入公式<代码>范围（“A1:A”和LastRow）。公式=范围（“A1”）。公式使用此方法。如果要从第4行开始，请使用

Range（“A4:A”&LastRow）。公式=Range（“A4”）。公式
查找最后一行时，请正确使用它，如图所示。我的问题是宏在较大的VBA代码中运行了4次，因此，实际指定一列并不能真正解决问题。VBA代码选择需要计算的列中的第二个单元格，然后此宏复制到最后一个单元格。例如，VBA代码的一部分不使用此代码范围（“C2”）的C列。选择应用程序。运行“PERSONAL.XLSB！CopyFormulaDownToLastRowOfData”
VBA代码的其他部分选择不同的单元格，因此我需要宏来处理所选单元格。这有意义吗？再次感谢您的回复