I have a similar issue in which I am trying to enter a formula in each row as it goes to the bottom of my table. The formula is a summation of the 5 cells to the left (in the same row). I know it must be a for statement, I just don't know how to word it. I have used the above mentioned code as reference:

Sub FillFormulas()
Dim LastR As Long
Dim rng As Range
Dim c As String
Dim r As Integer

    LastR = Range("A" & Rows.Count).End(xlUp).Row

For r = 2 To LastR
    'Insert =sum formula in here somewhere
Next r

End Sub
Any ideas on how to sum up the related rows?