' place in a standard module
.Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row).FormulaR1C1 = _
The only problem now is that when there is no match I would like to set the cells to blank. Any ideas?
I have blank cells but they contain the formula: =IFERROR(VLOOKUP(C7,Sheet1!B:E,4,FALSE),"") when I click on them