x = 2

Set R = Range(Cells(2, x + 2), Cells(z, x + 4))
Worksheets(1).Cells(2, x) = "=vlookup(RC[" & 1 - x & "]," & R.Address & ",2,0)"
I am facing issue with the above code. I am intending to run this in a loop with x increments in steps of 2. If I manually give any value in place of RC[" & 1 - x & "] then it works which hints that only that part going wrong.

Anyone can offer a quick help?