Numerazione pagine in fase di stampa

Premetto che il documento da stampare ha un'intestazione di 6 righe che nesessariamente devono essere stampati su tutti i foglied i dati sono nelle celle da B1 a I3000

Avrei necessità di stampare il numero di pagina nel primo rigo dell'intestazione con allineamento a destra nel seguente formato:
Pagina 20015/0001, Pagina 2015/0002 ........... possibilmente integrandolo nella macro.

Per la stampa uso la seguente macro:
Sub STAMPAPDF_SALVA_CON_NOME()
Sheets("Stampa Foglio1").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
nome = Range("P3").Value
ChDir "C:\Archivio\STAMPE"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Selection.AutoFilter Field:=1
Range("J4").Select
End Sub

Ringraziando anticipatamente resto in attesa di un Vs. aiuto.
Antonio