En que parte meto el encabezado

En la rutina que te envíe, tenías esto casi al principio:
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
Y seguía con otras más. Bueno, las 3 primeras son para el encabezado y las 3 últimas para el pie de página. Un ejemplo sería este, para las 3 posiciones (left=izquierda, Center=centro, Right=derecha).
.LeftHeader = "Empresa" ?podes colocar el texto que quieras
.CenterHeader = "&T" ?Time u hora
.RightHeader = "&D" ?Date o fecha
.LeftFooter = "&A" ?nombre de hoja
.CenterFooter = "&F" ?File o nombre del archivo
.RightFooter = "Autor" ?otro texto a gusto
Otras opciones son:
?&P? número de página
?&N? total de páginas. Podes utilizar la siguiente combinación:
?&P de &N? esto dará como resultado: nro de pág de total de páginas
Te explico el significado de las líneas que siguen, que son casi todas las opciones de la ventana Configurar página:
Margin son todos los márgenes (izq, der, sup, inferior, encabezado y pie en ese orden)
PrintHeadings = False (no imprime los nombres de encabezado, =True si)
PrintGridlines = False (no imprime las líneas de división, = True si)
PrintComments = xlPrintNoComments (no imprime comentarios)
CenterHorizontally = False (la hoja no está centrada horizontalmente)
CenterVertically = False (la hoja no está centrada verticalmente)
Orientation = xlLandscape o xlPortrait (orientación horizontal o vertical)
Draft = False (Calidad de borrador)
PaperSize = xlPaperA4 (tamaño de papel)
FirstPageNumber = xlAutomatic (primer número de página automático)
Order = xlDownThenOver (el orden de impresión hacia abajo luego a la derecha)