search another worksheet for textbox value and display results on listbox (without form)

Hiii guys..

I'm trying to do this VBA code for over 2 weeks now, but no luck at all.
then i found this perfect foum of yours, then i guessed i can get some help from experts.
anyways, I've red a post earlier to do the same thing but with a form.
all i need now is to search "sheet2" which contains some companies invoices and bills and make the searched company row appear in the" listbox" in "sheet1". WITHOUT ANY FORMS!!.

help me plz !!

thanks for any help in advanced ..

a sample of excel file attached

Peace