EXCELのCELLに関数を設定、

’難点は位置取得です。
R[-X]C[-Y]　意味は、該当CELLより、上に移動X行、左に移動Y列、
もちろん、X,Yは正数場合、下と右へ移動することです。

Dim row As Integer
Dim idx As Integer

For row = 7 To 18
Cells(row, 7).Select idx = row - 5
ActiveCell.FormulaR1C1 = "=IF(OR(R[-" & idx & "]C[-1]=0,RC[-1]="""",RC[-1]=0),"""",RC[- 1]/R[-" & idx & "]C[-1])"
Next row