I solved the problem. Why it is solved I dont know but it is solved.

The working code is as below:

For i = 1 To 10

Sheets("Sheet1").Cells(i,2)) = "=VLOOKUP(C1,İLK1!C2:C[54]," & i & ",0)"
Next

Thanks for the suggestions. They were very helpful