Hello.I live another problem. I needed to change the code:

It was like that:
For i = 1 To 10
Sheets("Sheet1").Cells(i,2)) = "=VLOOKUP(C[-2],İLK1!C[-1]:C[54],i,0)"
Next

After:

For i = 1 To 10
Sheets("Sheet1").Cells(i,2)) = "=VLOOKUP(C1,İLK1!C2:C54," & CStr(i) & ",0)"
Next

In second one it doesn't do the job. It doesnt join the tables. Why can this be? Thanks a lot.