Connecting two macros: Refresh pivot data then export as PDF

try this:

Sub AllWorksheetPivots()
Dim pt As PivotTable

    For Each pt In ActiveSheet.PivotTables
    pt.RefreshTable
    Next pt
Call Workbook_Open
End Sub


Sub Workbook_Open()

'Application.ThisWorkbook.RefreshAll--dunno if this helps
ActiveSheet.AutoFilter.ApplyFilter
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         "C:\Users\SAPagmty\Documents\Transition_Project\TBL_chart.pdf", Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
         True

End Sub