La macro de Excel incrementa automáticamente los números de serie en las celdas
Sub PageIncrement()
Selección.AutoFill Destino:=Rango("D1:E1"), Tipo:=xlFillDefault
Rango("D1:E1")..Seleccione
Rango("E1").Destino de corte:=Rango("D1")
Rango("D1").Seleccione
Fin Sub
'Primero seleccione la celda D1.