Vba not updating formula! Beginner

[dissertationhelp]

Hi, I have no idea how to do a VBA, but got one online which nearly does the job. Basically i have 2000 columns for 4000 rows, so manual copy and paste will take days. I have a blank column between each which i need a basic formula inserted. EG in cell D4 i need (C5-C4)/C4. The macro i have does this but it does not update the formula for D6 where i will need (C6-C5)/C5 and so on so forth instead it copies (C5-C4)/C4 into all the blank cells i need the formulas in? Can anyone help me please?
This is the macro i am running at the moment:

Sub fcopy()
Dim r, c As Integer
For r = 4 To 55
For c = 4 To 20 Step 2
Cells(r, c).Formula = "=(c5-c4)/c4"
Next
Next
End Sub



Thanks for any replies!

 

[Roderick_E]

cnt1 = 5
cnt2 = 4
For r = 4 To 55
For c = 4 To 20 Step 2
newrng = """=(c" & cnt1 & "-c" & cnt2 & ")/c" & cnt2 & """
Cells(r, c).Formula = newrng
cnt1 = cnt1 + 1
cnt2 = cnt2 + 1
Next c
Next r