Прошу помощи

[Constantine_imported]

В приведенном во втором случае коде, вы вообще не выводите переменную TotalSum, вы выводите только totaltotal в конце всех строк.
Формулу в Excel можно вывести с помощью:

XLSheet.Range('A1').FormulaR1C1 := 'тут ваша формула';