¿Cómo llenar un listbox con columnas discontinuas?

He terminado de diseñar un UF el cual contiene varios textbox, un listbox y un botón de búsqueda.

Lo primero que hago es agregar una clave de cliente en el textbox1 y al presionar el botón, la macro hace la búsqueda, si lo encuentra, llena el resto de los textbox con los datos del cliente.

Ahora bien, mi libro tiene dos hojas, una contiene los datos generales de cada cliente y la otra los artículos que se le han vendido a cada uno de ellos

Mi intención es que de una hoja "clientes" tome los datos para llenar los textbox (esto ya lo logré), y de la otra hoja "resumen" solo tome lo referente a los artículos para llenar el listbox según el cliente seleccionado.

El problema es que no sé cómo llenar el listbox con las columnas discontinuas, pues no me interesa mostrar todas las columnas en el listbox.

Este es el código de la macro:

Private Sub BUSCAR_Click()

Worksheets("cliente").Activate

If TextBox1 = "" Then
MsgBox "Coloca algun dato para buscar", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If

Set rango = Range("D:D").Find(What:=TextBox1, _
LookAt:=xlWhole, LookIn:=xlValues)

If rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox1 = "": TextBox1.SetFocus
Exit Sub
Else
TextBox2 = Range("F" & rango.Row)
TextBox3 = Range("E" & rango.Row)
TextBox4 = Range("G" & rango.Row)
TextBox5 = Range("H" & rango.Row)
TextBox6 = Range("I" & rango.Row)
TextBox7 = Range("V" & rango.Row)
TextBox13 = Range("J" & rango.Row)

End If

End Sub