excel vba空白小计单元格不接受公式

Sub CalculateSubtotals()
    Dim rngData As Range
    Dim rngSubtotals As Range
    Dim cell As Range
    
    ' 定义数据范围
    Set rngData = Range("A1:A10")
    
    ' 定义小计单元格范围
    Set rngSubtotals = Range("A11:A13")
    
    ' 清空小计单元格
    rngSubtotals.ClearContents
    
    ' 计算并填充小计单元格
    For Each cell In rngSubtotals
        cell.Value = CalculateSubtotal(cell.Row, rngData)
    Next cell
End Sub

Function CalculateSubtotal(row As Integer, rngData As Range) As Double
    ' 自定义计算逻辑，这里以求和为例
    Dim subtotal As Double
    Dim cell As Range
    
    For Each cell In rngData.Rows(row).Cells
        subtotal = subtotal + cell.Value
    Next cell
    
    CalculateSubtotal = subtotal
End Function