自动填充功能无法正常运行（VBA）

Question

所以我想做的是计算突出显示的单元格。

我使用了以下功能：

Function CountColorIf(rSample As Range, rArea As Range) As Long
Dim rAreaCell As Range
Dim lMatchColor As Long
Dim lCounter As Long

lMatchColor = rSample.Interior.Color
For Each rAreaCell In rArea
    If rAreaCell.Interior.Color = lMatchColor Then
        lCounter = lCounter + 1
    End If
Next rAreaCell
CountColorIf = lCounter
End Function

然后将以下公式添加到我的入门单元格中：

Selection.Formula = "=CountColorIf(R" & ActiveCell.Row - 1 & "C,RC" & ActiveCell.Column - lcol + 2 & ":RC[-1])"

最后我使用了以下自动填充：

ActiveCell.AutoFill ActiveSheet.Range(ActiveCell.Address & ":" & Left(ActiveCell.Address, Len(ActiveCell.Address) - 1) & lRow)

虽然确实要复制公式，但我希望在单元格中得到的输出是#VALUE！。

我已附上结果的图片。 I2是我的入门级电池，在那里电池结果很好。但是自动填充结果全部显示为#value！尽管当我选择该单元格时公式显然就在那里。

知道为什么会这样吗？