Macro para realizar un encabezado al exportar de excel a pdf

Necesito exportar a pdf los datos de una hoja de excel y agregarle un encabezado donde indique la fecha, el nombre y una característica, estos los tengo en variables

Una parte del macro que llevo donde realizo lo de exportar:

'para imprimir
ruta = ThisWorkbook.Path & "\" 'Misma ruta del origen
NOMBRE = ActiveSheet.Name 'Nombre de hoja
fec = Now
fecha = Format(Worksheets(hoja).Range("F2"), "yyyymmdd")
On Error Resume Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & "\" & NOMBRE & " " & fecha & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Esta parte me funciona, pero no logro realizar un encabezado con las variables fecha, nombre, característica.

Si me pueden ayudar!