Sum函数完成项目所需的宏

Question

所以，我有这个公式将E列中的每组数据分开2行：

    Sub AddBlankRows()

    Dim iRow As Integer
    Dim iCol As Integer

    iRow = 1 ' Row 1
    iCol = 5 ' Column E

    Do

        If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
           Range(Cells(iRow + 1, iCol), Cells(iRow + 2, iCol)).EntireRow.Insert shift:=xlDown
            iRow = iRow + 3
        Else
            iRow = iRow + 1
        End If

    Loop While Not Cells(iRow, iCol + 1).Text = ""

End Sub

最后，我需要在O列下面的第一个空白区域的每组数据下面放入一个求和函数，格式为上面的双线，下面是单行。我希望我能发布一个这样的图像，但我没有足够的“重复”点。

列O的示例：

*O*
1
2
3
6 (with double line above and single line below formatting)

5
9
14 (with double line above and single line below formatting)

我知道这看起来有点令人困惑，所以如果你需要我发送图片以便更好地澄清，请告诉我如何，我就是不能在这里发布图像。

这是我的流程的最后一步，我非常感谢您的帮助。

提前致谢！