Option Explicit
Sub test()
Dim t() As Variant, i As Integer
t = Array(10, 16, 38, 50, 89, 109, 143, 155, 190, 205, 255, 262, 285, 301, 306, 311, _
315, 317, 320, 323, 330, 334, 337, 339, 342, 346, 352, 365, 377, 381, 385, 395, _
406, 466, 486, 525, 556, 635, 714, 732, 762, 780)
For i = 1 To UBound(t)
Cells(t(i), 14).Value = Application.Sum(Range(Cells(t(i - 1) + 1, 14), Cells(t(i) - 1, 14)))
Next i
End Sub