Celda Autonumerada al guardar Excel

Les comento, Dam recién me paso una macro para guardar una planilla de excel en pdf

Sub guardapdf()
'Por.DAM
uf = range("A" & rows.ocunt).end(xlup).row
ru = "C:\Users\USUARIO\Desktop\Pedido\"
Range("A1:M" & uf).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ru & Range("B3") & " - " & Format(Range("Q3"), "dd-mm-yyyy") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Ahora lo que quiero saber es como hacer que una celda se valla sumando al guardar con el botón del macro por ejemplo la celda A3 (es un numero) 00000001 al guardar que me sume uno 0000002 y así sucesivamente.