[k@Z@k]

попробуй сумировать в самом экселе:

Код:

XLApp.workbooks[1].worksheets[1].cells[10,1].FormulaLocal:='=СУММ(R[-'+inttostr(i-1)+']C:R[-1]C)/2';