Can help be provided in this matter?

From my code I am listing fields of first row of a sheet in a list
box. Based on sheet name along with two options button.

I have two sheets in a Wb named "Company" and "Director" First row
contain headers and data are written from row2 to make a database.
In another sheet I am using control buttons.
Two option buttons named "Company" and "Director".
If user click say Company" option button,, then all the fields in
the company sheet ( ie the row 1 ) are listed in a separate list box
on the sheet.
The list box is a multi select list box. The user selects the
fields and clicks "OK" cmd button which then copies and paste the
data to a separate WB.
Now I want to add a separate list box wherein data on the basis of
selection on the first list box ie The list box now I am already
using, has to be populated. The data to be populated should be based
on the fields ie The first list box contains the fields, the second
list box should show the data from the selected fields.
Suppose the field selected is Company, then the second list box
should show the name of the companies under the Name of the
companies field from the Company sheet. The user will then select
the name of the company / companies from the second list box. Then
data should be shown in the Report.xls
And so on for other option buttons and other fields.
Please note that the path for report.xls is D:\ as used in the code.

A sample file is uploaded here
www.4shared.com/.../Fill_list_box.html