Buscar más de 10 Columnas vba

Buen día deseo llenar un listbox al momento de llenar un textbox y dar click en un botón de buscar que me muestre la información buscado por medio de cualquiera de los 32 campos de las columnas.

Private Sub CommandButton8_Click()
On Error GoTo Errores
If TextBox1.Value = "" Or TextBox1.Value = " " Then Exit Sub
ListBox1.Clear
j = 1
Filas = Range("A1").CurrentRegion.Rows.Count
For i = 2 To Filas

If UCase(Cells(i, j).Offset(0, 1).Value) Like "*" & UCase(TextBox1.Value) & "*" Then
ListBox1. AddItem HojaBase.Cells(i, j)
ListBox1. List(ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
ListBox1. List(ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
ListBox1. List(ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
ListBox1. List(ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
ListBox1. List(ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
ListBox1. List(ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
ListBox1. List(ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)
ListBox1. List(ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)
ListBox1. List(ListBox1.ListCount - 1, 9) = Cells(i, j).Offset(0, 9)
ListBox1. List(ListBox1.ListCount - 1, 10) = Cells(i, j). Offset(0, 10)
ListBox1. List(ListBox1.ListCount - 1, 11) = Cells(i, j). Offset(0, 11)
ListBox1. List(ListBox1.ListCount - 1, 12) = Cells(i, j). Offset(0, 12)
ListBox1. List(ListBox1.ListCount - 1, 13) = Cells(i, j). Offset(0, 13)
ListBox1. List(ListBox1.ListCount - 1, 14) = Cells(i, j). Offset(0, 14)
ListBox1. List(ListBox1.ListCount - 1, 15) = Cells(i, j). Offset(0, 15)
ListBox1. List(ListBox1.ListCount - 1, 16) = Cells(i, j). Offset(0, 16)
ListBox1. List(ListBox1.ListCount - 1, 17) = Cells(i, j). Offset(0, 17)
ListBox1. List(ListBox1.ListCount - 1, 18) = Cells(i, j). Offset(0, 18)
ListBox1. List(ListBox1.ListCount - 1, 19) = Cells(i, j). Offset(0, 19)
ListBox1. List(ListBox1.ListCount - 1, 20) = Cells(i, j). Offset(0, 20)
ListBox1. List(ListBox1.ListCount - 1, 21) = Cells(i, j). Offset(0, 21)
ListBox1. List(ListBox1.ListCount - 1, 22) = Cells(i, j). Offset(0, 22)
ListBox1. List(ListBox1.ListCount - 1, 23) = Cells(i, j). Offset(0, 23)
ListBox1. List(ListBox1.ListCount - 1, 24) = Cells(i, j). Offset(0, 24)
ListBox1. List(ListBox1.ListCount - 1, 25) = Cells(i, j). Offset(0, 25)
ListBox1. List(ListBox1.ListCount - 1, 26) = Cells(i, j). Offset(0, 26)
ListBox1. List(ListBox1.ListCount - 1, 27) = Cells(i, j). Offset(0, 27)
ListBox1. List(ListBox1.ListCount - 1, 28) = Cells(i, j). Offset(0, 28)
ListBox1. List(ListBox1.ListCount - 1, 29) = Cells(i, j). Offset(0, 29)
ListBox1. List(ListBox1.ListCount - 1, 30) = Cells(i, j). Offset(0, 30)
ListBox1. List(ListBox1.ListCount - 1, 31) = Cells(i, j). Offset(0, 31)
ListBox1. List(ListBox1.ListCount - 1, 31) = Cells(i, j). Offset(0, 32)

Else
End If
Next i
Exit Sub
Errores:
MsgBox "NO EXISTE REGISTRO", vbExclamation, "SAMDA"
End Sub

Este el código que estoy utilizando