Code help: Copy only filtered range to ListBox

Hi guys,

This is where I need and would appreciate your wisdom.

I am soooooo close to solving this challenge i have been battling with for days; just need some guidance.

Detail:

I have a simple UserForm where one captures a record with some basic detail, as well as multiple line items in a ListBox.
This all saves to a sheet (Sheet1), creating multiple rows.

Then i have a feature where one would do a search for a record (to reprint or edit), using the same UserForm. The search lists the suggested items in ListBox3, and when one dbl click on the ListBox3 item, it filters Sheet1 accordingly, and updates the UserForm with that specific record.

Here is my challenge:

I added a sub updateListBox () to copy back the data of the multiple line items captured in ListBox1, back into the ListBox1. BUT, the problem is, it does not copy only the filtered data as it is supposed to. It copies all the data of my Range. It is almost as if the filter does not "trigger".

This is what i want:

After I have filtered my data using my filter options, only the filtered section of my range must be copied to my ListBox1.

I have attached my sample workbook.

Thank you very much in advance!