通过vba在每个空间范围之间添加求和公式

我试图进行自动化，但我被困在这里，我需要在空间范围之间动态添加总和公式。我完全迷失了使用 VBA 添加公式的能力，任何人都可以帮助我。

先感谢您 ：）

我假设您想要的是，如果单元格中有空白，您希望将所有其他元素相加并将结果放置在该空白中。可能有很多方法可以对此进行编码，但这是我的尝试

Sub formulateSubtotals()
finalRow = Cells(Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row
finalCol = Cells(1, Worksheets("Sheet1").Columns.Count).End(xlToLeft).Column
For j = 1 To finalCol
    For i = finalRow + 1 To 1 Step -1
        If IsEmpty(Cells(i, j)) Then
            If IsEmpty(Cells(i - 2, j)) Then
                firstRow = i - 1
                lastRow = firstRow
            Else
                lastRow = i - 1
                firstRow = Cells(i - 1, j).End(xlUp).Row
            End If
            Cells(i, j) = Application.WorksheetFunction.Sum(Range(Cells(firstRow, j), Cells(lastRow, j)))
        End If
    Next i
Next j
End Sub

这还假设相关工作表的标题为“Sheet1”。