ListBox con más de 10 Columnas desde un TextBoxt

Estoy trabajando sobre un FORM con un TextBox y un ListBox en este caso quiero regresar columnas no continuas y más de 10 columnas, no se si puedas orientarme al respecto, agradecería tu apoyo, anexo el código que tengo de antemano gracias.

Private Sub TextBox1_Change()
Dim fin As Long, i As Long, n As Long
Dim sCadena_seccion As String
With Sheets("PAPEL_DE_TRABAJO")
fin = Application.CountA(.Range("A:A"))
If TextBox1 = "" Then
Me.ListBox1.RowSource = ("A4:AU") & Worksheets("PAPEL_DE_TRABAJO").Range("A" & Rows.Count).End(xlUp).Row
Exit Sub
End If

Me.TextBox2 = Clear
Me.TextBox3 = Clear
Me.ListBox1.RowSource = Clear

For i = 2 To fin
sCadena_seccion = .Cells(i, 1).Value
If UCase(sCadena_seccion) Like "*" & UCase(TextBox1.Value) & "*" Then

Me.ListBox1.AddItem
Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
Me.ListBox1.List(n, 2) = .Cells(i, 6).Value
Me.ListBox1.List(n, 3) = .Cells(i, 7).Value
Me.ListBox1.List(n, 4) = .Cells(i, 8).Value
Me.ListBox1.List(n, 5) = .Cells(i, 10).Value
Me.ListBox1.List(n, 6) = .Cells(i, 11).Value
Me.ListBox1.List(n, 7) = .Cells(i, 13).Value
Me.ListBox1.List(n, 8) = .Cells(i, 14).Value
Me.ListBox1.List(n, 9) = .Cells(i, 34).Value
Me.ListBox1.List(n, 10) = .Cells(i, 35).Value
Me.ListBox1.List(n, 11) = .Cells(i, 36).Value
Me.ListBox1.List(n, 12) = .Cells(i, 38).Value
Me.ListBox1.List(n, 13) = .Cells(i, 41).Value
Me.ListBox1.List(n, 14) = .Cells(i, 42).Value
n = n + 1
End If
Next

Me.ListBox1.ColumnWidths = "30pt;50pt;0pt;0pt;0pt;60pt;60pt;50pt;0pt;150pt;60pt;0pt;60pt;60pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;50pt;50pt;50pt;0pt;30pt;0pt;0pt;50pt;30pt;"

End With
End Sub