Macro - Error al exportar de listbox a excel

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Worksheets("DATOS").Visible = True
Worksheets("DATOS").Select
If Worksheets("DATOS").Range("A1") = Empty Then
MsgBox "NO EXISTEN TARJETAS EN LA BASE DE DATOS", vbExclamation, "TARJETAS EN NR"
Worksheets("DATOS").Visible = False
Application.ScreenUpdating = True
Exit Sub
End If
Application.ScreenUpdating = True
Worksheets("DATOS").Visible = False
'CREAMOS NUEVO LIBRO
Workbooks.Add
'PASAMOS LOS DATOS DEL LISTBOX AL NUEVO LIBRO
For fila = 0 To ListBox1.ListCount - 1
    Cells(1, 1) = "TARJETAS"
    Cells(fila + 2, 1) = ListBox1.List(fila, 0)
    Cells(1, 2) = "ORIGEN"
    Cells(fila + 2, 2) = ListBox1.List(fila, 1)
    Cells(1, 3) = "BLOQUEO"
    Cells(fila + 2, 3) = ListBox1.List(fila, 2)
    Cells(1, 4) = "RIESGO"
    Cells(fila + 2, 4) = ListBox1.List(fila, 3)
    Cells(1, 5) = "FECHA"
    Cells(fila + 2, 5) = ListBox1.List(fila, 4)
    Cells(1, 6) = "DIAS"
    Cells(fila + 2, 6) = ListBox1.List(fila, 5)
    Cells(1, 7) = "ANALISTA"
    Cells(fila + 2, 7) = ListBox1.List(fila, 6)
 Columns("A:H").EntireColumn.AutoFit
  Range("A1:H1").Select
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        .PatternTintAndShade = 0
    End With
Next
Unload Me
End Sub

Buenas tardes,

La consulta es la siguiente, tengo una macro creada, avanzada hasta cierta parte. Trabaja de la siguiente manera:

El primer formulario, se ingresa la información:

• Tarjetas
• Fecha
• Origen
• Tipo de Bloqueo
• Alto riesgo
• Días
• Usuario

Este formulario se graba en un archivo Excel. Hasta aqui funciona bien.

En el segundo formulario,

Que se invoca desde un botón dentro del primer formulario, se llama BUSCAR

Acá tengo los problemas.

La información trabajaría con dos filtros de fecha DESDE y HASTA (Estos dos no he podido hacerlo)

Los resultados aparecerían en un listbox, con las siguientes columnas y cabeceras:

• Tarjetas
• Origen
• Tipo de Bloqueo
• Alto Riesgo
• Fecha
• Días
• Usuario

Luego, desde un botón EXPORTAR hacia Excel.

El error está al querer exportarlo, da error con ALTA_NR. Hide, sí es que borro esta línea, si logra exportar, pero la hoja nueva queda en segundo plano.

El siguiente error, tambien en el archivo exportado, aparece en la columna de TARJETAS, me da error de formato, sale como texto y no como número, y por ende la info sale distorsionada.

Disculpen la molestia y espero que me puedan ayudar

Aqui el codigo: