如何创建一个可以对任意数量的行进行小计的宏，并将总计放在正确的行中？

Sub 小计宏()
    Dim 总计行 As Integer
    Dim 小计行 As Integer
    Dim 数据开始行 As Integer
    Dim 数据结束行 As Integer
    
    ' 设置总计行和小计行的初始行数
    总计行 = 2
    小计行 = 2
    
    ' 获取数据开始行和结束行的行数
    数据开始行 = Range("A2").Row
    数据结束行 = Range("A" & Rows.Count).End(xlUp).Row
    
    ' 循环遍历数据行进行小计
    For i = 数据开始行 To 数据结束行
        If Range("A" & i).Value <> Range("A" & i + 1).Value Then
            ' 将小计值写入小计行的指定列
            Range("B" & 小计行).Value = Application.WorksheetFunction.Sum(Range("B" & 总计行 & ":B" & i))
            
            ' 设置下一小计行和总计行的行数
            小计行 = 小计行 + 1
            总计行 = i + 1
        End If
    Next i
    
    ' 将最后一个小计值写入小计行的指定列
    Range("B" & 小计行).Value = Application.WorksheetFunction.Sum(Range("B" & 总计行 & ":B" & 数据结束行))
    
    ' 设置总计行的单元格格式
    Range("B" & 小计行 + 1).HorizontalAlignment = xlRight
    Range("B" & 小计行 + 1).Font.Bold = True
    Range("B" & 小计行 + 1).Interior.Color = RGB(220, 230, 241)
    
    ' 选中总计行的下一行
    Range("A" & 小计行 + 1).Select
End Sub