Excel - Una mas y no jodo mas

Aqui toma el valor de la celda A1 para la cantidad de copias. Esta muyyyyy simple, asi que no creo que tengas problemas en entenderla:
Sub Macro2()
Dim copias As Long
copias = Range("A1").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=copias, Collate:=True
End Sub

Abraham esto funciona muy bien pero ahora ya que estamos necesito que con cada impresion que salga llevar en una celda un contador, cada vez que se realice una impresion que este se incremente de a uno para la proxima copia
Es para ir enumerando las hojas...

Desde ya muchas gracias
Horacio

Mira, aqui hay un ejemplo de autonumeracion:

http://es.geocities.com/eavj666peru/Ejm_fact_simple.xls

Abraham