VLOOKUP at VBA Code

Hello Experts

I want to use the function VLOOKUP at my VBA program inside a FOR Loop

what wrong with my code ?

For p = 2 To tblrows
        If Range("b" & p).Value = "1" Then
        Range("J" & p).Select
        Selection.FormulaR1C1 = "=VLOOKUP(C & p,'sheet1'!$A:$i,9,false)"
        Columns("J:J").EntireColumn.AutoFit
        Else
        Range("j" & 9).Value = "0"
        End If
    Next p

thanks

Shark Man