Macro para copiar datos de un listbox

Buen dia tengo una base de datos con las ventas del dia en una hoja de excel, uso un listbox con 5 columnas y cambie el ListStyle = 1 y Multiselect = 1 para tener activado el checkbox y poder seleccionar varias facturas, podrian apoyarme como hacerle al momento de seleccionar las facturas que deseo y q me las pegue en una hoja esto me lo hace perfectamente pero solo la primera columna me gustaria una macro para poder pasar todas las columnas en la hoja y poder imprimir un reporte que deseo generar. Si me pueden ayudar estaria agradecido
Adjunto macro que uso
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Cells(i + 1, 1) = ListBox1.List(i)
End If
Next i