Visual Basic - envio valores

He probado con ese codigo y en el momento de exportar con excel me muestra los datos, pero cuando vuelvo a exportar nuevamente los valores numericos me salen en blanco por cual tengo que cerrar el formulario para que me exporte nuevamente
....
...
....................................
With objExcel.ActiveSheet
.Range(.Cells(1, 1), .Cells(1, 4)).Borders.LineStyle = xlContinuous
.Cells(3, 1) = "NOMBRE"
.Cells(3, 2) = "DIRECCION"
.Cells(3, 3) = "POBLACION"
.Cells(3, 4) = "CANTIDAD"
.Range(.Cells(3, 1), .Cells(3, 4)).Font.Bold = True

.Columns("D").HorizontalAlignment = xlHAlignRight
.Columns("A").ColumnWidth = 30
.Columns("B").ColumnWidth = 30
.Columns("C").ColumnWidth = 30
.Columns("D").ColumnWidth = 15
-----------ahi me muestra los datos en blanco por segunda vez
.Range(.Cells(3, 5), .Cells(3, 5)).Select
Selection.NumberFormat = "@"
Selection.Value = 1
End With

le agradecere su gentil respuesta