Ajustar macro para que conserve los colores originales del archivo al imprimir en PDF

Un placer saludarles.

En esta oportunidad solicito su valiosa ayuda en lo siguiente: en la web encontré una macro que crea archivos PDF. La estoy usando y funciona bien, solo tiene un detalle: El archivo PDF creado por la macro presenta colores distintos a los que tienen las celdas en el archivo. ¿Es posible colocarle alguna instrucción a la macro para que conserve en el PDF los colores originales del archivo?. La macro es la siguiente:

Sub crearPDF()
Sheets(Array( _
  "Hoja1", _
  "Hoja2", _
  "Hoja3", _
  "Hoja4", _
  "Hoja5", _
  "Hoja6")).Copy
With ActiveWorkbook
  .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & Format(Now, "yyyy-mm-dd hh.MM am/pm") & " - Proyección.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, OpenAfterPublish:=False
  .Close False
End With
End Sub

La imagen Nro. 1 es el archivo PDF creado por la macro.

La imagen Nro. 2 es el archivo que contiene los colores que quiero que respete la macro al crear el PDF.

De antemano, muy agradecida por su valiosa ayuda.