Datos filtrados de una hoja mostrarlos en un listbox( pasar de la columna 10)

Sr dante ante todo agradecer por atender nuestras preguntas mi inquietud es la siguiente ¿puedo agregar 71 columnas? Al tema con este titulo:
Datos filtrados de una hoja mostrarlos en un listbox

La introducción es esta

Tengo un formulario en donde con un commandbutton filtro los datos de una hoja que se llama "Cobros". Utilizo el autofilter. Necesito que este filtro me sea mostrado en un listbox según vayan cambiando los datos que filtro en la hoja.

El autofiltro se aplica en este rango: A2:P400 y las columnas que muestro en el listbox son desde la A hasta la F y qué éstas se ajusten al contenido.

Estaré muy agradecido, si me pueden ayudar con algún código

Y bueno usted dio estas Instrucciones que en si funcionan perfectamente

Instrucciones:

1. Agrega un botón de comando a tu formulario llamado "llenalista"

2. Le das doble click y pegas el siguiente código

Private Sub llenalista_Click()
'Por Dam
Dim cell As Range
Dim Rng As Range
ListBox1.ColumnCount = 6
With ThisWorkbook.Sheets("Cobros")
Set Rng = .Range("A1", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
End With

ListBox1.Clear
For Each cell In Rng.Cells
With Me.ListBox1
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = cell.Offset(0, 3).Value
.List(.ListCount - 1, 4) = cell.Offset(0, 4).Value
.List(.ListCount - 1, 5) = cell.Offset(0, 5).Value
End With
Next cell
End Sub

Espero pueda ayudarme por favor ya que cuando llego a lacolumna 10 me da error Muchas Gracias espero tenga un buen día