出现“ActiveCell.Formula Error 1004”错误通常是由于在VBA代码中对ActiveCell的使用不正确引起的。以下是一些解决该问题的方法和示例代码：

1. 确保ActiveCell不为空，可以使用If语句来检查ActiveCell是否为空，然后再进行相关操作。示例代码如下：

If Not ActiveCell Is Nothing Then
    ' 进行相关操作
    ActiveCell.Formula = "=SUM(A1:A10)"
End If

2. 确保ActiveCell位于有效的单元格范围内，可以使用Worksheet对象的UsedRange属性来获取工作表中使用的范围，然后再检查ActiveCell是否在该范围内。示例代码如下：

Dim ws As Worksheet
Set ws = ActiveSheet

If Not Intersect(ActiveCell, ws.UsedRange) Is Nothing Then
    ' 进行相关操作
    ActiveCell.Formula = "=SUM(A1:A10)"
End If

3. 确保ActiveCell属于工作表对象，可以使用Worksheet对象的CodeName属性来引用工作表，然后再检查ActiveCell是否属于该工作表。示例代码如下：

If ActiveCell.Parent.Name = Sheet1.Name Then
    ' 进行相关操作
    ActiveCell.Formula = "=SUM(A1:A10)"
End If

请注意，上述代码示例中的“=SUM(A1:A10)”只是一个示例，你需要根据你的具体需求来设置ActiveCell的公式。另外，你也可以根据具体情况进行适当的修改和调整。