Назначение формул в таблице VBA

Question

Мой макрос состоит из нескольких частей (все внутри таблицы): а. Значения внутри столбца 4 = значения col4 + значения col5 (работает)

б. Значения col5 затем устанавливаются на 0 (работает)

с. Последние ячейки в столбцах 4 и 5 устанавливаются на сумму всех записей в соответствующих столбцах. (не работает)

д. Каждая ячейка в столбце 5 должна иметь следующую формулу: [@ [Всего выполнено и сохранено до настоящего времени (K = H + I + J)]] - [@ [Предыдущая работа завершена]] (не работает)

Чтобы установить последние ячейки в столбцах 4 и 5 равными сумме столбца, который я пробовал:

Ячейки (Rows.Count, 4) .End (xlUp) .Row.Formula = "= SUM (Таблица2 [Предыдущая работа завершена])"

Cells (Rows.Count, 5) .End (xlUp) .Row.Formula = "= SUM (Table2 [Stored Materials])" "

Чтобы задать формулы для каждой ячейки в столбце 5, я попытался:

Для i = 12 To Cells (Rows.Count, 5) .End (xlUp) .Row

Ячейки (i, 5) .Formula = "= [@ [Всего выполнено и сохранено до настоящего времени (K = H + I + J)]] - [@ [Предыдущая работа завершена]]"

Далее я

Я не уверен, работает ли эта часть или нет, потому что мой код перестает работать с формулами суммы.

Sub zeroAndAdd0_Click ()

 For i = 12 To Cells(Rows.Count, 4).End(xlUp).Row

    Cells(i, 4).Value = Cells(i, 4).Value + Cells(i, 5).Value
    Cells(i, 5).Value = 0

Next i

Cells(Rows.Count, 4).End(xlUp).Row.Formula = "=SUM(Table2[Prior Work Completed])"

Cells(Rows.Count, 5).End(xlUp).Row.Formula = "=SUM(Table2[Stored Materials])"


For i = 12 To Cells(Rows.Count, 5).End(xlUp).Row

    Cells(i, 5).Formula = "= [@[Total Completed & Stored to Date (K=H+I+J)]] - [@[Prior Work Completed]]"

Next i

End Sub