将求和函数添加到空白单元格Excel

Question

因此，我正在尝试清理我运行的报告，到目前为止，我的代码运行得非常好，但是我需要添加其他功能来帮助清理Excel文件。

Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range

Set oRng = Range("e1")

iRow = oRng.Row
iCol = oRng.Column

Do
'
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
    iRow = iRow + 1
    Range("k" & iRow).Value = "Total"
    iRow = iRow + 1
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""
'
End Sub

此代码的作用是比较两个单元格，如果它们不匹配，则会插入空白行。 在该行的内部，它在“ K列”中添加文本“总计”。

但是，我需要在K列旁边添加一个求和公式（因此，在L列中），对它上面的数字求和，直到命中其上一个先前的求和函数为止。 我试图将成群的数字求和，并在总数旁边显示该和。 但是数字高于总和。 有没有人有任何建议或指示来指出我要实现这一目标？