Can't enter formula from cell using vba

[SVRouss]

Hi All,
There is a problem depicted below. There is a cell B6 with a formula (does not matter what is the formula, a formula in principle), which is shown in cell B7 using FORMULATEXT function. Cell B8 contains this formula in the macro format obtained using the macro recorder.
Now the problem:

• If using direct mentioning of the formula in vba procedure (Buttons Direct and Direct 1 and the corresponding macros), cell B6 returns the required value regardless the function you use (Formula, FormulaR1C1, Value, etc.)
• If using a reference to the cell containing the formula in the right format (Buttons InDirect and the corresponding macros), cell B6 returns the value of the referenced cell but does not transform it into formula regardless the function you use (Formula, FormulaR1C1, Value, etc.) and the form of the value (c.Value ot c.Text).
• Remark: format of all cells is General.

So the question is, how to transform formulae stored in cells into formulae using vba?

 

[SVRouss]

Sorry, here is more correct image.

 

[SVRouss]

Bingo! You need to store formula is direct format (ie, as =RC[-1]&"["&R[-1]C[-1]&"]"&VLOOKUP(R[-1]C,R[-5]C[-1]:R[-3]C,2,0) in this case), then x.FormulaR1C1 = c.Value works correctly.