Cita:
Iniciado por Omura 
apenas me manejo con el vba pero me voy a atrever a sugerir un pequeño cambio
Sub Numerar()
On Error Resume Next
Range("A2").Value=1
Range("A3").Value=2
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("A2", Range("A2").End(xlDown)), Type:=xlFillDefault
Range("A1").Select
End Sub
digo con esto ya se podrían eliminar las primeras filas de ser necesario
Grcias Omura, voy probando y algo edito este mismo o agrego post
Edito:
Elimino el 00000001 en A2 funciona
Elimino el 00000002 en A3 funciona
Elimino 1º el 00000002 en A3 y
sin salir del form elimino tambien el 00000001 en A2 y me manda esto
Si elimino 1º el 00000001 y luego el 00000002 sucede lo mismo
Es decir que tendria que eliminar 1º uno (el 1 o el 2 o viceversa) y luego salir del form y volver para eliminar el otro
Omura, probando le agregue al inicio de tu mmacro On Error Resume Next y dejo de mostrar nada y funciona pero ¿se podra arreglar sin tener que agregarle el On Error Resume Next ?
Arreglo? ¿se puede?
Agregame algo para que; si no existe NADA
a patrir de la B2, que nada muestre a partir de la A2, ¿porque?
Al eliminar todo TODO siempre en A2 y A3 existe 00000001 y 00000002 porque la macro te esta diciendo que tiene que existir en A2 y A3 esa numeracion
Entonces al agregar el 1º proveedor (B2), este recibe la numeracion de 0000001 pero sigue ahi en A la 00000002 y 00000003 sin proveedor alguno
Gracias una ves mas omura