[FONT=lucida console][COLOR=Royalblue]Sub[/COLOR] a1090658b()
[COLOR=Royalblue]Dim[/COLOR] i [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], j [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], k [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], n [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR]
[COLOR=Royalblue]Dim[/COLOR] q [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], x [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR], z [COLOR=Royalblue]As[/COLOR] [COLOR=Royalblue]Long[/COLOR]
[COLOR=Royalblue]Dim[/COLOR] r [COLOR=Royalblue]As[/COLOR] Range
[COLOR=Royalblue]Dim[/COLOR] va
Application.ScreenUpdating = [COLOR=Royalblue]False[/COLOR]
[COLOR=Royalblue]For[/COLOR] i = [COLOR=crimson]1002[/COLOR] [COLOR=Royalblue]To[/COLOR] [COLOR=crimson]2[/COLOR] [COLOR=Royalblue]Step[/COLOR] -[COLOR=crimson]1[/COLOR]
[COLOR=Royalblue]Do[/COLOR] [COLOR=Royalblue]While[/COLOR] Cells(i, [COLOR=brown]"C"[/COLOR]) = Cells(i - [COLOR=crimson]1[/COLOR], [COLOR=brown]"C"[/COLOR])
i = i - [COLOR=crimson]1[/COLOR]
[COLOR=Royalblue]Loop[/COLOR]
[COLOR=Royalblue]If[/COLOR] i = [COLOR=crimson]2[/COLOR] [COLOR=Royalblue]Then[/COLOR] [COLOR=Royalblue]Exit[/COLOR] [COLOR=Royalblue]For[/COLOR]
Rows(i).Insert xlUp
[COLOR=Royalblue]Next[/COLOR]
n = Range([COLOR=brown]"C"[/COLOR] & Rows.count).[COLOR=Royalblue]End[/COLOR](xlUp).Row
q = [COLOR=crimson]2[/COLOR]
[COLOR=Royalblue]For[/COLOR] [COLOR=Royalblue]Each[/COLOR] r [COLOR=Royalblue]In[/COLOR] Range([COLOR=brown]"C2:C"[/COLOR] & n + [COLOR=crimson]1[/COLOR]).SpecialCells(xlCellTypeBlanks)
[COLOR=Royalblue]For[/COLOR] k = [COLOR=crimson]4[/COLOR] [COLOR=Royalblue]To[/COLOR] [COLOR=crimson]10[/COLOR]
x = r.Row
Cells(x, k) = WorksheetFunction.Sum(Range(Cells(q, k), Cells(x - [COLOR=crimson]1[/COLOR], k)))
z = z + Cells(x, k)
[COLOR=Royalblue]Next[/COLOR]
q = x + [COLOR=crimson]1[/COLOR]
[COLOR=Royalblue]Next[/COLOR]
Range([COLOR=brown]"H2"[/COLOR]) = z
Application.ScreenUpdating = [COLOR=Royalblue]True[/COLOR]
[COLOR=Royalblue]End[/COLOR] [COLOR=Royalblue]Sub[/COLOR][/FONT]