Hi there
'IF isempty(cells(r,14)) then leave Cells(r, 15) empty. 
Cells(r, 15) = Application.VLookup(Cells(r, 4), AccChart2, 2, False)
how to combine these tow line to be written in one VBA line?