Feb 25 2019 05:25 AM
Sub Enter_Formulas()
For r = 30 To 32
Range("$T" & r).Formula = "=($Y$17-$Y$18)"
Range("$S" & r).Formula = "=ROUNDDOWN(($Y$17-$Y$18)/$Q" & r & ",0)"
Range("$V" & r).Formula = "=(($U & r) * ($Q & r))"
Range("$U" & r).Formula = "=IF(($S" & r & " > 0)*($R" & r & " > 0.00001), ROUNDDOWN(($Y$17-$Y$18)/$Q" & r & ",0)," & Chr(34) & Chr(34) & ")"
Next r
End Sub