Hi, I am trying to add the first eight columns, then the next eight and so on...
I was able to find out a VBA coding which helped in getting the above said in values in the cells but not the formulas. Could some one please help in correcting the below said VBA coding to get formulas instead of Values

Sub Autosum()
'to add first eight columns from Monthly tab to Total tab, then next 8 and so on
Dim Rng As Range

Set Rng = Sheets("Monthly").Range("C7:J7")
For i = 3 To 26
Sheets("Total").Cells(7, i).Value = WorksheetFunction.Sum(Rng)
Set Rng = Rng.Offset(0, 8)
Next i
End Sub