Sub mimacro()
'seleccionar columna completa de fecha'
Range("A:A").Select
'Editar formato de Fecha'
Selection.NumberFormat = "ddmmyyyy"
'Sleccionar columna completa de numeros de comprobantes de Comprobante'
Range("D:D").Select
'Rellenar con ceros a la izquierda columna completa de numeros de comprobantes'
Selection.NumberFormat = "00000000000000000000"
'Seleccionar columna completa de Nombres'
Range("E:E").Select
'Rellenar con espacios a la derecha columna completa de Nombres'
Selection.NumberFormat = " "
'Seleccionar Columna completa de Monto'
Range("G:G").Select
'Rellenar con ceros a la izquierda columna completa de Monto'
Selection.NumberFormat = "0000000000000000"
'Seleccionar Columna completa de Importe'
Range("H:H").Select
'Rellenar con ceros a la izquierda columna completa de Importe'
Selection.NumberFormat = "0000000000000000"
End Sub