Macro para configurar página de Excel 2013 me desconfigura encabezado y pie

A tod@s,

A ver si me podéis echar una manita en algo que para vosotros estará "chupado" pero que no consigo de ninguna forma hacerlo.

Tengo una hoja con un encabezado (imagen a la izquierda y título al centro) y pie de página (archivo y etiqueta a la izquierda y páginas a la derecha) configurada.

Estoy tratando de grabar una macro, con la grabadora, que haga lo siguiente:

• Ocultar varias columnas
• Cambiar la orientación de la página
• Ajustar la impresión a 1 página de ancho por las que sean de alto.

Grabo la macro y en la primera ejecución todo correcto, pero si la vuelvo a ejecutar:

• Elimina la imagen del encabezado
• Todo lo del pie de página (archivo, etiqueta y números) las coloca en el centro.
• Además me imprime los comentarios (en la configuración general de la hoja está desactivado).

Adjunto el código generado con la grabadora:

Sub Colocar_1()
'
' Colocar_1 Macro
'

'
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("O:O").Select
Selection.EntireColumn.Hidden = True
Range("B8").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "&G"
.CenterHeader = _
"&""Arial Rounded MT Bold,Negrita Cursiva""&16&K002060" & Chr(10) & "PEDIDO OBRA"
.RightHeader = ""
.LeftFooter = "&""-,Cursiva""&8&F/&A"
.CenterFooter = ""
.RightFooter = "&9Pág. &P de &N"
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(1.02362204724409)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub