Sub Macro1()
    Range("B2:B20").FormulaR1C1 = "=VLOOKUP(""*"" & R[1]C & ""*"",Sheet2!C[1],1,0)"
End Sub