Limit Listbox Multidimensional

if someone have a code for filter o limit a Listbox but with 6 columns and 6 textbox because i have a code but is only onedimensional works fine but i dont have any clue how to modify to works like multidimensional

this the one dimensional

Private Sub tbxFind_Change()
Dim vList As Variant

'Read the original list
vList = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value

'Convert it to a 1D array
vList = Application.Transpose(vList)

'Filter it
vList = Filter(SourceArray:=vList, _
Match:=tbxFind.Value, _
Include:=True, _
Compare:=vbTextCompare)

'Send it to the listbox
lbxCustomers.List = vList

End Sub
Private Sub UserForm_Initialize()
'Read the original list
lbxCustomers.List = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
End Sub