Sub refresh_pivot_button_Click()
        ThisWorkbook.Worksheets("Admin").PivotTables("PivotTable1").PivotCache.BackgroundQuery = False
        ThisWorkbook.Worksheets("Admin").PivotTables("PivotTable1").PivotCache.Refresh
        ThisWorkbook.Sheets("Summary").PivotTables("PivotTable1").RefreshTable
        ThisWorkbook.Sheets("Admin").Activate
End Sub




'  DELETE PREVIOUS FILE
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

If Dir(strFilename) <> "" Then fs.DeleteFile (strFilename)

Application.SheetsInNewWorkbook = 1 ' Для создания в новой книге 1 листа
Set new_WB = Workbooks.Add() '(xlWBATWorksheet)
    ThisWorkbook.Worksheets("Summary").Activate
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    new_WB.Activate
    ActiveSheet.Paste
    ActiveSheet.Cells.Columns.AutoFit
  
Application.DisplayAlerts = False ' Чтобы не выводить предупреждение об удалении листа

new_WB.SaveAs Filename:= _
strFilename _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

new_WB.Close
Set new_WB = Nothing

'Application.Wait (Now + TimeValue("0:00:05")) ' wait 5 sec to save file

Dim RetVal

ThisWorkbook.Worksheets("Admin").Activate