Multiple Column Listbox Populate Code?

the following code has been devised to populate a userform listbox ("listbox1") with seven select columns (F,H,K,L,N,O) of filtered rows of a worksheet ("Data")

Code:
Sub AddMultipleColumn()
Dim rngCell As Range
Dim wks As Worksheet

[Code]...

Regrettably, there is something amuck that is preventing it from providing the expected results. Seems as though this code wishes to process all the rows, instead of just those revealed from the filter. The routine runs indefinately, and will ultimately lock up Excel and never revealing any information. On a random stop, rngCell value far exceeded the (what I felt) to be the preferred max of 28 ... the number of rows of the filter. This routine is called from within the userform's initialization code.

Question 1 ... those that are able to shed light on the flaw ...

Question 2 ... data starts on row 6 of ther database, with rows 1-5 being header. What needs to be done, if anything, to reflect this?

And question 3 ... if the worksheet "Data" were in a second workbook , would be as simple as changing this ... Set wks = workbooks("workbook2.xls").Worksheets("Data")