Hmm. A co ma się znaleźć na tej liście? Jeśli tylko model, to przypisz listę pod koniec (za pętlami) procedury 'wypełnijListy' (ListBox1.List = lstModel.List).
Jeśli to ma być wielokolumnowa lista z wszystkimi informacjami, to najprościej byłoby dołożyć kolumnę z unikatowymi liczbami (Np WIERSZ()) w arkuszu "Procesory" i wg listy 'lstModel' przypisać do ListBox'a.
Wtedy wystarczyłoby "nieco" zmodyfikować tę pętlę, w której masz "lstModel.AddItem (model(i))" oraz dołożyć ukrytą kolumnę w "lstModel", do której wpisujesz nasze "id" i przepisujesz po prostu wskazany wiersz.
Czyli na początku masz wszystkie procesory i w miarę filtrowania zostają te = id modelu.