求大神帮忙用VBA做一个不规则的合并单元格求和

这个代码我写过，就是获取每一个合并单元格的位置，然后求和，属于位置运算。

不难

alt+f8，运行宏，得到窗体，选择列，得到结果。
https://pan.baidu.com/s/1VTAU1Y-gTckx1cXtAVkGwg

自己百度了下，后面还是自己写了
Private Sub CommandButton1_Click()
Dim arr, i, n, s
arr = Range("B1:D" & Range("c65536").End(xlUp).Row
n = 1 '存每个合并单元格的第一行
s = 0 '存求和结果
For i = 1 To UBound(arr)
s = s + arr(i, 2)
If arr(i, 1) <> "" Then '当新遇见B列的不为空的行，相当于下个单元时候处理上个单元的和
arr(n, 3) = s - arr(i, 2)
n = i
s = arr(i, 2)
End If
Next
arr(n, 3) = s
Range("B1:D" & Range("c65536").End(xlUp).Row) = ar
End Sub