MADAR datos de listbox a un nuevo libro

Vi su respuesta a otra pregunta de como mandar los datos de un listbox a un nuevo libro de excel.

Intente modificara a mi convencía y no supe conseguir que me abriera con el resto de datos de mi formulario

Puede indicarme como proceder.

Gracias de antemano

Private Sub CommandButton1_Click()
Dim Fila As Integer
Dim fila2 As Integer
Dim Final As Integer
Dim final2 As Integer
Dim Registro As Integer
Dim registro2 As Integer
Dim objExcel As Object
Dim saldototal As Integer
Dim nombrearchivo As String
Dim contarfilas As Double
Dim contarfilasfilas2 As Double
Dim codprod As String
Dim codfecha As String
Dim filadeltotal As Integer
Dim valorsaldo As Double

Set objExcel = Workbooks.Add
objExcel.Activate
nombrearchivo = ActiveWorkbook.Name

contarfilas = 7

Application.Workbooks(nombrearchivo).Worksheets(1).Cells(1, 4) = "CPI INDUSTRIAL ENGINEERING SAU "
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(2, 3) = codprod
For Fila = 1 To 1000
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(2, 7) = Me.txt_fecha.Value
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(3, 4) = Me.txt_descrip.Text
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(5, 2) = Me.eje1
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(5, 5) = Me.eje2
Application.Workbooks(nombrearchivo).Worksheets(1).Cells(6, 4) = Me.eje3
Exit For
Next
'AQUI TENDRIA QUE IR EL CODIGO PARA MADAR AL LIBRO NUEVO LAS 3 COLUMNAS DE MI LISTBOX

'
'APLICAR FORMATO A TODO EL REPORTE
Unload Me
ObjExcel. Activate

'Llamar Macro para dar formato al reporte
'Call BORDE2
'Call Aimpresion
Call Formatear_hoja
Call Estilo_letra
' Aimpresion
'Call Macro1

'Call formatoborde

End Sub