Dividelink
 

In cell A1 Sheet 2, I want to put the result of Sheet 1 F37/F36 and then link
cell G1 Sheet 2 to F36 and I1 Sheet 2 to F37. This is the formula I am using
now.

Sub Dividelink()
Range("A1").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!R[36]C[5]/' Sheet 1'!R[35]C[5]"
Range("G1").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!R[35]C[-1]"
Range("I1").Select
ActiveCell.FormulaR1C1 = "=' Sheet 1'!R[36]C[-3]"
Range("I1").Select
End Sub

Is there an easier way to do this?