de esta manera cargo el listbox
ListBox1.Clear
For A = 3 To Hoja6.Range("A" & Rows.Count).End(xlUp).Row
For B = 2 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row
If Hoja2.Cells(B, 5) = ComboBox1.Text And Hoja2.Cells(B, 6) = Hoja6.Cells(A, 1) Then
n = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(n, 0) = Hoja2.Cells(B, "A")
ListBox1.List(n, 1) = Hoja2.Cells(B, "F")
ListBox1.List(n, 2) = Hoja2.Cells(B, "D")
ListBox1.List(n, 3) = Hoja2.Cells(B, "J")
ListBox1.List(n, 4) = Hoja2.Cells(B, "L")
End If
Next
Next
de esta manera mado a la hoja
Private Sub CommandButton4_Click()
Dim objExcel As Object
Dim NombreArchivo As String
Application.ScreenUpdating = False
On Error Resume Next
Set objExcel = Workbooks.Add
objExcel.Activate
NombreArchivo = ActiveWorkbook.Name
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(2, 1) = "MOVIMIENTO DE CURSILLOS DE CRISTIANDAD"
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(2, 1), Cells(2, 6)).Merge = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(2, 1).Font.Bold = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(2, 1).Font.Size = 14
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(2, 1), Cells(2, 6)).HorizontalAlignment = xlCenter
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(3, 1) = "ARQUIDIOCESIS DE CALABOZO"
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(3, 1), Cells(3, 6)).Merge = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(3, 1).Font.Bold = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(3, 1).Font.Size = 14
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(3, 1), Cells(3, 6)).HorizontalAlignment = xlCenter
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(5, 1) = "CUADRANTE DEL EQUIPO: " & UCase(Me.ComboBox1.Text)
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(5, 1), Cells(5, 6)).Merge = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(5, 1).Font.Bold = True
Application.Workbooks(NombreArchivo).Worksheets(1).Cells(5, 1).Font.Size = 14
Application.Workbooks(NombreArchivo).Worksheets(1).Range(Cells(5, 1), Cells(5, 6)).HorizontalAlignment = xlCenter
cont = 0
Range("A7") = "Nº"
Range("B7") = Label2
Range("C7") = Label3
Range("D7") = Label5
Range("E7") = Label7
Range("F7") = Label8
'
Range("A7").Borders.LineStyle = xlContinuous
Range("B7").Borders.LineStyle = xlContinuous
Range("C7").Borders.LineStyle = xlContinuous
Range("D7").Borders.LineStyle = xlContinuous
Range("E7").Borders.LineStyle = xlContinuous
Range("F7").Borders.LineStyle = xlContinuous
Range("A7").Interior.ColorIndex = 15
Range("B7").Interior.ColorIndex = 15
Range("C7").Interior.ColorIndex = 15
Range("D7").Interior.ColorIndex = 15
Range("E7").Interior.ColorIndex = 15
Range("F7").Interior.ColorIndex = 15
Range("A7").Font.Bold = True
Range("B7").Font.Bold = True
Range("C7").Font.Bold = True
Range("D7").Font.Bold = True
Range("E7").Font.Bold = True
Range("F7").Font.Bold = True
j = 8
For i = 0 To ListBox1.ListCount - 1
Range("B" & j) = ListBox1.List(i, 0)
Range("C" & j) = ListBox1.List(i, 1)
Range("D" & j) = ListBox1.List(i, 2)
Range("E" & j) = ListBox1.List(i, 3)
Range("F" & j) = ListBox1.List(i, 4)
Range("F" & j) = CDate(Format(ListBox1.List(i, 4), "dd/mm"))
Range("A" & j).Borders.LineStyle = xlContinuous
Range("B" & j).Borders.LineStyle = xlContinuous
Range("C" & j).Borders.LineStyle = xlContinuous
Range("D" & j).Borders.LineStyle = xlContinuous
Range("E" & j).Borders.LineStyle = xlContinuous
Range("F" & j).Borders.LineStyle = xlContinuous
'
cont = cont + 1
Range("A" & j) = cont
j = j + 1
Next
'
Range("A" & ":B").HorizontalAlignment = xlLeft
Range("C" & ":D").HorizontalAlignment = xlLeft
Range("E" & ":F").HorizontalAlignment = xlRight
Range("G" & ":H").HorizontalAlignment = xlCenter
Range("I" & ":J").HorizontalAlignment = xlCenter
Range("A:A").EntireColumn.AutoFit
Range("B:B").EntireColumn.AutoFit
Range("C:C").EntireColumn.AutoFit
Range("D:D").EntireColumn.AutoFit
Range("E:E").EntireColumn.AutoFit
Range("F:F").EntireColumn.AutoFit
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintTitleRows = "$A$1:$F$1"
Unload Me
pero esto es lo que pasa en la hoja
probe adaptando el codigo que me envias y no logre nada