What is wrong with the following formulas:

'formula for column G
With Me.Range("G" & currRow)
Me.Range("G" & currRow).Formula = "=IF(E" & currRow & "= 0, 0, (RC[-2]/RC[-3]))"
End With

formula for column I
With Me.Range("I" & currRow)
Me.Range("I" & currRow).Formula = "=IF(H" & currRow & " = 0, 0, RC[-5]-(((1-RC[1])*RC[-5])+RC[-4]))"
End With

Thanks,

TB