Excel VBA循环实现列P插入列S对应值求和公式的方法及代码

我现在遇到这么个需求：想要在P列插入新的求和公式，对S列中的对应值进行求和，而且这个操作需要重复执行（就像我电子表格里的情况那样）。想问问怎么编写循环来实现这个功能？

更新：已实现功能的VBA代码 #

后来我自己找到了能实现该功能的循环，代码如下：

Sub COMPLETE()
    TotalRow = 0
    SumEnd = 0
    For cur_row = 3 To 174
        If IsEmpty(Cells(cur_row, 19)) = True Then
            If cur_row = 3 Then
                TotalRow = 3
                Counts = -1
            Else
                Cells(TotalRow, 25) = "=SUM(S" & (SumEnd - Counts) & ":S" & SumEnd & " )"
                TotalRow = cur_row
                Counts = -1
            End If
        Else
            Counts = Counts + 1
            SumEnd = cur_row
        End If
    Next cur_row
End Sub

内容的提问来源于stack exchange，提问作者alewis9