listbox array filter has blanks

Hi
I have a user form with list box that displays a named range of data. In a combo box I select a string from a drop down list, once selected the list box filters the data on records with the string selected into an array and the array is set to the list box.
Works fine but I'm getting blanks for the records which don't match. Code for the combo box selection is below, lstGatePrices is the list box, gate_information contains the source data which is removed once the button is selected (lstGatePrices.RowSource=""), images pre and post selection are also include, any help appreciated. Basically I want to filter a list from a combo box, I also want to filter further on more columns but that can come later. Thanks

Private Sub cmbModel_Change()

Dim out As String, out2 As String
Dim iCount As Integer
Dim arr As Variant
Dim rg As Range
Dim i As Long, j As Long, row As Long
Dim vDataArray(1 To 200, 1 To 6)

On Error Resume Next

lstGatePrices.RowSource = ""


Set rg = Worksheets("gate_information").Range("A1").CurrentRegion

row = 2
For i = 1 To rg.Rows.Count
If rg.Cells(i, 1) = Me.cmbModel.Value Then

For j = 1 To 6
vDataArray(i, j) = rg.Cells(i, j)
out2 = out2 & " " & rg.Cells(i, j)

Next j


End If
Next i

lstGatePrices.List = vDataArray
MsgBox "bob " & Me.cmbModel.Value & " " & Me.lstGatePrices.ColumnCount & " " & Me.lstGatePrices.ListCount & " " & out & " out2 " & out2
End Sub

Although not directly related to your immediate query.
I saw your original post and started putting ideas together.
Regrettably events got in the way and I lost track, today's post awakened me again.
Some of the content may be useful ????
The UserForms are triggered by the small green button in cell 'A1'
As I had no clue to prices there is just a simple formula that helped me fill the form for testing only.
As the data quantity is small I opted for a 'sleeper sheet' for data manipulation rather than array manipulation.
Rather than me just bin the app you may as well look at it (it is no where the finished article).
torachan.

Slow start to the morning for me.
Second look at your query and I remembered a solution that I recently gave on this forum.
Very similar search pattern to yours, methods used may of future use.
torachan.

Many thanks for the replies, I'm pleased to say it works a treat. My next step is to filter further on height, depth and width starting with height.
I've added a text box and code to filter on the full string and this filters but it's behaving oddly. For instance when I put 16 in the height box there should be loads of values
but it's only showing some.
And ideally I want the contents of the text box aligned with height to filter just on the height value.
In the code below when the Height text box is changed I set xstr with a comma separator and have tried to split the string so the instr searches just on the third value (height)
but the form behaves oddly and it doesn't work. Can you assist with this please ? Images attached, thanks

Private Sub txtHeight_Change()
Dim out As String, out2 As String
Dim iCount As Integer
Dim arr As Variant
Dim rg As Range
Dim i As Long, j As Long, row As Long
Dim vDataArray(1 To 200, 1 To 6)
Dim hArray() As String

On Error Resume Next

lstGatePrices.RowSource = ""

ystr = Me.cmbModel.Value
hstr = Me.txtHeight.Value
Ary = Worksheets("gate_information").Range("GatePrices3")

nr = 0
ReDim Nary(1 To UBound(Ary), 1 To 6) As Variant

For r = 2 To UBound(Ary)
xstr = Join(Application.Index(Ary, r, 0), ",")
'hArray = Split(xstr, ",")
'height = hArray(3)
'out2 = out2 & " " & height
'If InStr(1, xstr, ystr, vbTextCompare) And InStr(1, height, hstr, vbTextCompare) Then
If InStr(1, xstr, ystr, vbTextCompare) And InStr(1, xstr, hstr, vbTextCompare) Then
nr = nr + 1
For c = 1 To UBound(Ary, 2)
Nary(nr, c) = Ary(r, c)
Next c
End If
Next r

'lstGatePrices.List = vDataArray
lstGatePrices.List = Nary
'MsgBox "bob " & Me.cmbModel.Value & " " & Me.txtHeight.Value & " out2 " & out2
End Sub

Please upload a desensitised workbook, its a lot easier to see what is going on.

Workbook attached, all help appreciated, thanks

Ha - thank you AlphaFrog, that is perfecto !! And thanks to torachan, what a great source of information and inspiration this site is !

@AlphaFrog beat me, must take shorter lunch breaks.

Hi again, sorry to bother you further, I've now added another drop down box which selects Type either Standard or NonStandard and combined that with filtering of Model and Height.
It seems to work okay apart from an odd instance. When I filter Model on LCHP I get the correct details, filtering further on Type I get the correct details again. When I type 5 into the Height field
I get a reduced number of fields all with a 5 in, all good. But when I enter 4 all the entries disappear but there is a height of 1450. So whether a 4 or 5 is entered anything with 1450 should
remain - I'm puzzled! Please take a look and opine if possible. Thanks. Latest file and an image of screenshots attached

Thanks AlphaFrog, that now works. I've realised another challenge, if the Model and/or Type values are left blank and a value entered in Height it displays nothing which is right because of the instr clause on Model and Type but ideally the user should be able to enter a height and it display all model/types.
I could write several if blocks with the code below contained in each block adjusted depending if Model/Type are blank but wondering if there's a better way of doing it. It could also apply to Depth and Width once I've set those up. Any suggestions ? Thanks
For r = 1 To UBound(Ary)
xstr = Join(Application.Index(Ary, r, 0), ",")
If INDEXLIST(xstr, ",", 2) = tstr And InStr(1, Ary(r, 1), mstr, vbTextCompare) > 0 And InStr(1, Ary(r, 3), hstr, vbTextCompare) > 0 Then
nr = nr + 1
For c = 1 To UBound(Ary, 2)
Nary(nr, c) = Ary(r, c)
out2 = out2 & " " & Nary(nr, c)
Next c
End If
Next r

Absolutely brilliant! Thank you AlphaFrog