Find Used Range & Enter Formula

[dgr]

Hi,
I'm using Excel 2013. I'm looking for a VB macro solution.

I want to loop through all used cells in column H and enter a formula in each cell. The formula basically divides the figure in cell G with the figure in cell F. I think the formula should be

ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"

How do I write this macro?

Thanks a lot.

 

[VoG]

Try

Sub xtest()
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
Range("H1:H" & LR).FormulaR1C1 = "=RC[-1]/RC[-2]"
End Sub

 

[dgr]

Thanks a lot VoG. You have been great help. It works fine. I appreciate your help.