Create formula base on text

[Panoos64]

Hi to all of you, I would like to create a VBA code so that to run through col. “M” and where find the text “Sales” should create a formula in adjacent cells “N”, “O”, “P”, “Q”, “R”, “S” "T' if these cells are completely blank and if not nothing do. Therefore that, the file name should be placed using an input box. For my below example the file name [Refreshments.xlsx] should be place by Input box. The complete formula is below: Thank you all in advance

=IF('C:\User\Stock\MainStore\Inventory\[Refreshments.xlsx]Sheet1'!B4=B101,'C:\User\Stock\Main Store\Inventory\[Refreshments.xlsx]Sheet1'!H3,",")