Imprimir hojas en tamaño oficio y carta simultaneamente del mismo archivo

Hola amigos:

Solicitando su valioso apoyo para resolver un problema que me surgio en la impresion de unos archivos, resulta que en una pestana tengo unos contratos los cuales constan de varias hojas, y lo tengo configurado en hoja tamaño oficio por asi requerirlo, pero la ultima hoja necesito que se imprima en tamaña carta, todo esto automaticamente mediante una macro, ?? , y agradezco de antemano si alguien me pudiera apoyar

las primeras 4 hojas se imprimen bien, pero la ultima al cambiar la configuracion se descuadra

en mi macro utilizo la sig, instruccion:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True

With ActiveSheet.PageSetup

.PaperSize = xlPaperLetter

End With

ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate:=True

Saludos desde Mexico, D,F,

formato.rar