Pasar columnas de un listbox a otro

Solamente se pueden cargar hasta 10 columnas con el método additem, para cargar más de 10 columnas tienes que usar la propiedad List o rowsource.

Con la siguiente opción puedes cargar las 22 columnas o las que necesites:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Set h = Sheets("temp")
    h.Cells.Clear
    c = ListBox2.ColumnCount
    f = ListBox2.ListCount
    If f > 0 Then
        h.Range(h.Cells(1, 1), h.Cells(f, c)) = ListBox2.List
    End If
    For i = 0 To ListBox1.ColumnCount - 1
        h.Cells(f + 1, i + 1) = ListBox1.List(ListBox1.ListIndex, i)
    Next
    ListBox2.Clear
    ListBox2.List = h.Range(h.Cells(1, 1), h.Cells(f + 1, c)).Value
End Sub

Tienes que crear una hoja llamada "temp" para que la macro la utilice para descargar y cargar el listbox2.

Si no quieres que se vea la hoja "temp" la puedes ocultar y la macro sigue funcionando.

Saludos. Dante Amor

Si es lo que necesitas.

Dante, muchisimas gracias, funciona perfectamente, disculpa la molestia, podrías por favor incicarme como hago con codigo que se cargue un rango de una hoja excel a un listbox? sucede que mando los datos de una hoja a otra segun se los genere en codigo, pero al usar la opción  list fill range la misma se modifica ya que el codigo que uso crea una nueva fila en la hoja para colocar los datos nuevos y obviamente el rango se modifica.

Muchas gracias.

Dante, muchisimas gracias, funciona perfectamente, disculpa la molestia, podrías por favor incicarme como hago con codigo que se cargue un rango de una hoja excel a un listbox? sucede que mando los datos de una hoja a otra segun se los genere en codigo, pero al usar la opción  list fill range la misma se modifica ya que el codigo que uso crea una nueva fila en la hoja para colocar los datos nuevos y obviamente el rango se modifica.

Muchas gracias.

Dante, muchisimas gracias, funciona perfectamente, disculpa la molestia, podrías por favor incicarme como hago con codigo que se cargue un rango de una hoja excel a un listbox? sucede que mando los datos de una hoja a otra segun se los genere en codigo, pero al usar la opción  list fill range la misma se modifica ya que el codigo que uso crea una nueva fila en la hoja para colocar los datos nuevos y obviamente el rango se modifica.

Muchas gracias.

Dante, muchisimas gracias, funciona perfectamente, disculpa la molestia, podrías por favor incicarme como hago con codigo que se cargue un rango de una hoja excel a un listbox? sucede que mando los datos de una hoja a otra segun se los genere en codigo, pero al usar la opción  list fill range la misma se modifica ya que el codigo que uso crea una nueva fila en la hoja para colocar los datos nuevos y obviamente el rango se modifica.

Muchas gracias.