Get Find and mouse wheel scroll working in list box

Hi Friends,
I have a sheet in which I select products from listbox and extract it to the columns.(Sample sheet attached.) Having a few difficulties as follows:

1- listbox doesnt work if I save the file with that particular sheet active. For eg: my listbox is in the sheet named 'order'. If i save the file with cell in that sheet, next time when I open the file ('order' sheet will be displayed as dat was the 1 while savin the file), listbox wont work. I have to select other sheet and then go back to the 'order' sheet to get listbox working.

2- I have around 4500 products and it becomes very difficult to find a particular product from it. (Although I have it sorted alphabetically but still, its huge list). I woud prefer if i can find products by typin a few words (filtering as i type).

3- I am not able to use mouse wheel to scroll through the list box.

I would really appreciate if ne1 can help me in solving this (or suggest a workaround to make it easier). I dunno much about vba. Have learnt a bit through dis forum and google only. Hence, Please mention a bit in detail if I have to modify the vba or nethin such..
Thanx a lot..