Макрос для суммирования столбцов - VBA

Формулировка задачи:

уже второй час пытаюсь сделать макрос: Суть в том, что есть огромное кол-во таблиц с шапками, таблицы разорваны большим промежутком ячеек,мне нужно написать макрос который суммирует только цифры в столбцах D E F G и помещает результат в столбец C (суммирует по строкам) Я понимаю, что формулой это дело 2х минут, но кол - во таких рваных таблиц будет расти и, мне необходим макрос, заранее благодарен

Решение задачи: «Макрос для суммирования столбцов»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
    Dim iSource As Range
    For Each iSource In [A:A].SpecialCells(xlConstants, xlNumbers).Areas
        iSource.Offset(, 2).FormulaR1C1 = "=SUM(RC[1]:RC[4])"
    Next
    
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub
                        