Vlookip to VBA Script

Hello Vik,

When i use your formula i get the following error: "Type Mismatch".

Cheers,

Maybe:

Sub Habs21()
Range("B2:B" & Range("B" & Rows.count).End(3).Row).Formula = "=VLOOKUP(""*""&A2&""*"",Sheet2!B:B,1,0)"
End Sub