Copiar datos de pivot table manteniendo formato

Tengo un código visual basic en el que copio lo dats de un pivot table con la opición .TableRange1.Copy pero al pegar la información en la hoja destino, no conserva el formato. Solo se copian los datos.

He probado con varias opciones de paste y pastespecial pero no doy con la correcta.

Opción 1: AppExcel.Workbooks(sNombreInforme).Worksheets(2).PasteSpecial Format:="Microsoft Excel 8.0 Format"

Opción 2: AppExcel. Workbooks(sNombreInforme). Worksheets(2). PasteSpecial