Pasar datos de listbox a diferentes columnas

Estoy suponiendo que buscas algo así, como no mencionas como cargas los datos en el listbox en la hoja1 hice una tabla que es cargada al iniciar el userform como se muestra en la segunda imagen

de este formulario al dar click sobre el commandbutton este ejecutara una macro que pasara todos los datos del listbox a una variable llamada matriz, la cual en un solo paso ira colocando cada 4 columnas la información quedando como e la imagen 1

 y este es el codigo

Private Sub CommandButton1_Click()
Set h2 = Worksheets("hoja2")
Set destino = h2.Range("d1").Resize(1, 4)
matriz = ListBox1.List
filas = UBound(matriz)
For i = 0 To filas
    If i > 0 Then
        Set destino = destino.Columns(5).Resize(1, 4)
    End If
    fila = WorksheetFunction.Index(matriz, i, 0)
    Sheets("hoja2").Range(destino.Address) = fila
Next i
Erase matriz: Erase fila
Set destino = Nothing
End Sub

Hola James... gracias por el comando y es lo que necesito, pero trate de agregar tu código a mi proyecto pero no me resulta...

El código que utilizo para guardar toda la información de mi formulario es este;

Private Sub Guardar_Click()
Dim Fila As Integer
Dim Final As Integer
Dim i As Integer
Dim Registro As Integer
        For Fila = 1 To 30000
            If Hoja6.Cells(Fila, 1) = "" Then
                Final = Fila
                Exit For
            End If
        Next
        For Registro = 2 To Final
            If Hoja6.Cells(Registro, 1) = Me.Label_Folio Then
                Exit Sub
                Exit For
            End If
        Next
                Hoja6.Cells(Final, 1) = Me.Label_Folio
                Hoja6.Cells(Final, 2) = Me.Cbo_RutCliente
                Hoja6.Cells(Final, 3) = Me.Label_Fecha
                Hoja6.Cells(Final, 84) = Me.Txt_Dias
                Hoja6.Cells(Final, 85) = Me.Txt_Descuento
                Hoja6.Cells(Final, 86) = Me.Txt_TotalNeto
                Hoja6.Cells(Final, 87) = Me.Txt_IVA
                Hoja6.Cells(Final, 88) = Me.Txt_Total
  Cbo_RutCliente.SetFocus
End Sub

Y todo lo que esta en mi listbox debo agregarlo desde la columna 4 hasta la 83 y este es mi formulario

Gracias...

En tu consulta inicial no mencionaste de que las filas se iban a estar recorriendo ni que antes de la columna 4 y de la columna 83 había información eso cambia la programación de la macro que en efecto no te iba a funcionar, así que viendo tu macro la modifique un poco para que use un ciclo For en vez de dos, la forma de detectar duplicados cambia y ahora como vez en la imagen ya esta comtemplada el resto de la información

y esta es la macro

Private Sub Guardar_Click()
With Hoja6.Range("a1").CurrentRegion
    filas = .Rows.Count
    col = .Columns.Count
End With
With Hoja6.Range("a1")
If col = 1 Then Set datos = .Resize(1, 88)
If col > 1 Then Set datos = .Rows(filas + 1).Resize(1, 88)
End With
With datos
    .Columns(1).Select
    indice = WorksheetFunction.CountIf(Range("a:a"), Label_Folio)
    If indice = 0 Then
    .Cells(1) = Me.Label_Folio
    .Cells(2) = Me.Cbo_RutCliente
    .Cells(3) = Me.Label_Fecha
    .Cells(84) = Me.Txt_Dias
    .Cells(85) = Me.Txt_Descuento
    .Cells(86) = Me.Txt_TotalNeto
    .Cells(87) = Me.Txt_IVA
    .Cells(88) = Me.Txt_Total
matriz = WorksheetFunction.Index(ListBox1.List, 0, 0)
columnas = 4
For i = 1 To UBound(matriz)
    If i = 1 Then Set lista = .Cells(4).Resize(1, 4)
    If i > 1 Then Set lista = lista.Columns(5).Resize(1, 4)
    Fila = WorksheetFunction.Index(ListBox1.List, i, 0)
    Sheets("Hoja6").Range(lista.Address) = Fila
Next i
Sheets("Hoja6").Range("a1").CurrentRegion.EntireColumn.AutoFit
End If
End With
Cbo_RutCliente.SetFocus
Erase matriz: Erase Fila
Set datos = Nothing
End Sub

Mis disculpas James, debí haberme expresado mejor... Te cuento me envía un error al ejecutarlo, se deberá a que mi hoja 6 la tengo con el nombre "Cotizaciones" y que el rango de los registros comienza de la Fila A2?

Este es el error que me envía con tu código;

Realice los cambios pensando en el rango inicial y en el nombre de la hoja y me manda el mismo error:

Que estoy haciendo mal???

Así es mi hoja de excel;

Agradeciendo tu ayuda, tu tiempo y tus conocimientos...

Borra la línea columns(2). Select, eso solo lo use para una comprobación, y no era 2 sino 1, si fuera por el nombre de la hoja te hubiera marcado error en las primeras líneas

Estimado James, ejecute el cambio y me guarda los datos de los textbox, pero no del listbox y me envía error en la matriz

Puede deberse a que tu listbox no se llama listbox1 sino que tiene un nombre personalizado como los textbox y combobox a los que identificaste con otro nombre

Estimado James, el nombre del listado a sido el mismo Listbox1.

Que sera el problema??? es lo único que me falta para terminar mi proyecto :(

Esta es la propiedad de mi listbox1, puede que ahí tenga una diferencia

Gracias...

La única es que subas tu archivo a un servicio de nube y pegues el link para verlo, así platicado ya resulta difícil ver que es

James... envió link de mi proyecto

https://1drv.ms/f/s!An72VgL_xDdIgp8Nfd9ZczraIXECkA 

Gracias...

Tu archivo esta dando demasiados problemas en varias variable por ejemplo en las variables uf me marca un error de biblioteca no encontrada, eso lo arreglo declarando la variable, me sale el mismo problema que a ti en el archivo lo curioso es que pasa aunque copie el formulario y las hojas ligadas a el en otro libro, volvi a programar en un 3er libro de nuevo la macro y si funciona pero al momento de integrarla a tu macro falla, asi que concluyo es que hay algo que programaste en tu macro que te esta creando un conflicto porque ni cambiando el nombre de matriz por otro nombre funciona la macro la otra es que la version que tienes de Excel no tenga una referencia o tenga una referencia en las bibliotecas que yo no tengo.