Search to populate listbox (Stuck at blank cells)

Hi Guys

VBA code to search for all occurrences of same item and populate listbox on a userform with certain data, (see attached file), works well accept it will not skip over blank cells and continue its search, it is actually coded to stop at the first blank cell, I have tried to modify it but have failed, this is not my code but work inherited, any help would be welcome.


Regards
John