Подскажите пожалуйста почему не работает код?

Исходная формула

=ВПР(A2;ДВССЫЛ("Табель!"&ПСТР(АДРЕС(1;ПОИСКПОЗ("pernr";Табель!1:1;0);4);1;1)&":W");ПОИСКПОЗ("age_y";Табель!1:1;0)-ПОИСКПОЗ("pernr";Табель!1:1;0)+1;0)

Sub ККК()

lr = Range("A" & Rows.Count).End(xlUp).Row

  fStr = "=ВПР(A2;ДВССЫЛ( Chr(34) & "Табель!" & Chr(34)   & ПСТР(АДРЕС(1;ПОИСКПОЗ( Chr(34) & "pernr" & Chr(34)  ;Табель!1:1;0);4);1;1) &" & chr(34) :W  " & chr(34)  );ПОИСКПОЗ( chr(34) & "age_y" & chr(34)  ;Табель!1:1;0)-ПОИСКПОЗ(chr(34) & "pernr" & chr(34) " ;Табель!1:1;0)+1;0)"

With Range("I2")

      .FormulaLocal = fStr

      .AutoFill Destination:=Range("I2:I" & lr), Type:=xlFillValues

End With

Range("i2:i" & lr).Copy

Range("i2:i" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

End Sub