Need to place 3 formuals in VBA

[jln via OfficeKB.com]

Ok what i have is formuals that start in row 41 columns F,G,I and match the
length of data in column E.

=C41*E41/360 Goes in F

=F41*30 Goes in G

=G41+H41 Goes in I

SO im thinking that i need to have a count of row E then add the formuals
into the three columns. SO how do I do this?

 

[Charles Chickering]

Here's the basic concept using FormulaR1C1:

dim lRow as long
lRow = Range("E" & Rows.Count).End(xlUp).Row
Range("F41:F" & lRow).FormulaR1C1 = "=RC[-3]*RC[-1]/360"
Range("G41:G" & lRow).FormulaR1C1 = "=RC[-1]*30"
Range("I41:I" & lRow).FormulaR1C1 = "=RC[-2]+RC[-1]"