Добавление переменных в формулы R1C1

Question

Я получаю ошибку приложения для этой строки кода при запуске. Проблема в том, что я включил переменную в формулу R1C1?

Dim numPT as In
ActiveCell.FormulaR1C1 = _
        "=ROUNDDOWN(IF(RC[" & numPT & "]" & "+" & "RC[" & 2 * numPT & "]" & "<=" & "RC15 - SUM(RC17:RC[-1]), RC[" & numPT & "]" & "+" & "RC[" & (2 * numPT) & "],RC15 -SUM(RC17:RC[-1]),0)"