Как использовать функцию .FormulaR1C1

Question

Я пытаюсь использовать функцию .FormulaR1C1 для следующего форума: = VLOOKUP (OFFSET (INDIRECT (ADDRESS (ROW (), COLUMN ())), 0, -1), ключ! $ A $ 17: $ Я $ 29,8, ЛОЖЬ)

Когда я ввожу его в свой код, он не работает?

Option Explicit
Sub CalcColB()

Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Cells(Rows.Count, "F").End(xlUp).Row
 Select Case (Cells(x, 6))
 Case "Net 75 from 1st of following month"
 Cells(x, 2).FormulaR1C1 = "=VLOOKUP(OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),0,-1),Key!$A$17:$I$29,8,FALSE)"

 Case "F"
 Cells(x, 2).FormulaR1C1 = "=RC[-1]*1000"
 Case Else
 Cells(x, 2).Formula = "="""""
 End Select
Next x
Application.ScreenUpdating = True
End Sub

Answer 1

Для R1C1:

Cells(x, 2).FormulaR1C1 = "=VLOOKUP(RC[-1],Key!R17C1:R29C9,8,FALSE)"

Answer 2

Использование .Формула :

Sub poiuy()
    Range("A1").Formula = "=VLOOKUP(OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),0,-1),Key!$A$17:$I$29,8,FALSE)"
End Sub