将空白函数添加到空白单元格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列中添加了文本“Total”。

但是，我需要在K列旁边添加一个总和公式（因此，在L列中），它对它上面的数字求和，直到它到达它上面的前一个Sum函数。我试图总结一堆数字，并显示总和旁边的总和。但数字高于总和。有没有人有任何建议或指示指出我完成这个？