如何修改程序使得多次运行程序出来相同的效果！！！

先行者

各位网友早上好，附件工作簿中有“运行程序前”与“运行程序1次后”与“运行程序2次后”3个工作表，利用模块中的代码把“运行程序前”工作表中的相关信息变成“运行程序1次后”工作表中的样子：
目前的问题是：当程序运行1次的时候出现的结果是正确的(见“运行程序1次后”工作表)，但是当我再次点击程序再次运行的时候请注意上述标红色的地方发生了错误（请比较“运行程序2次后”工作表红色部分与“运行程序1次后”工作表红色部分）：
要求，如何修改以下代码使得程序运行1次与多次得出的结果均是程序运行1次的那种效果，谢谢！
n = Range("F65536").End(xlUp).Row
For i2 = 2 To n
    If Cells(i2, 5) = Cells(i2 + 1, 5) Then
   
        Sum = Sum + Cells(i2, 10)
    Else
        Cells(i2, 10) = Sum
      
        Sum = 0
    End If
    If Cells(i2, 6) = "1002.01" And Cells(i2, 11) = 0 Then Cells(i2, 10) = Cells(i2, 12)
Next

先行者

如何修改程序使得多次运行程序出来相同的效果！！！

先行者

如何修改程序使得多次运行程序出来相同的效果！！！