请教应该用什么功能或函数做这种求和，数据很多的情况

'看上去挺搞笑的
Option Explicit
Sub abc()
　Dim i, j, k, r, p, sum
　r = [a1].End(xlDown).Row
　For j = 2 To 4
　　p = 0
　　For i = 1 To r
　　　For k = i To i + Cells(i, j).MergeArea.Count - 1
　　　　sum = sum + Cells(i, 1).Value
　　　Next
　　　Cells(p + 1, j) = sum: sum = 0
　　　i = k - 1: p = i
　　Next
　Next
End Sub