Try:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],'D:\SourceFile\[" & Range("B2") & ".xls]PriceInfo'!R2C2:R15000C5,2,0)"


Regards