Try this
    Range(Range("H5"), Range("G65536").End(xlUp).Offset(0, 1)) = "=IF(ISERROR(RC[-1]/RC[-3]),"""",RC[-1]/RC[-3])"