FormulaR1C1 в функции для каждого и если

Question

Я хотел бы, чтобы мой макрос проверял какое-то значение и на основании результата использовал конкретную формулу.Моя реализация с управляющими структурами For Each и If не приводит меня к ожидаемому результату.Формула не работает, и вместо этого я получаю ошибку во время выполнения.

Dim RelRowR As Range

Set RelRowR = ActiveSheet.Cells(2, 1).Resize(LR1,1).SpecialCells(xlCellTypeVisible)

For Each RelRowR In RelRowR
  If RelRowR.Value = "C1" Then
     RelRowR.Offset(0, 17).FormulaR1C1 = "=IFERROR(HLOOKUP(R[0]C[-15],'[SD Workbook.xlsx]Sheet1'!R5C19:R15C31,VLOOKUP(R[0]C[-3],'[SD Workbook.xlsx].Sheet1'!R36C4:39C5,2,0),0)"
  End If
Next RelRowR