Pies de paginas

BUENAS TARDES A TODOS.

AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII.

NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO

EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL"

ESTE ES EL MACRO QUE USO PARA IMPRIMIR

Sub Imprime_horarios()

Application.ScreenUpdating = False

For Each pestaña In Worksheets

If pestaña.Name = "nombres" Then GoTo otra:

pestaña.Activate

If Range("d6") <> 0 Then

ActiveWindow.SelectedSheets.PrintOut Copies:=2

pestaña.PrintOut

End If

otra:

Next pestaña

Sheets("nombres").Activate

Application.ScreenUpdating = True

End Sub

DENTRO DE ESTE MISMO MACRO NECESITO QUE SE PUEDA PONER EL PIES D EPAGINA