Формулы стоят, нужно добавить к ним условие вида "Еслиошибка("моя формула; 0" . Вот что есть.
Код
Sub Test()
Dim Rng As Range, rCell As Range
Set Rng = Range("C1:C16"
For Each rCell In Rng
rCell.Activate
ActiveCell.FormulaR1C1 = "=IFERROR(* / *,0)"
Next
End Sub