В модуле листа (где у Вас макрос и лежит) добавьте
[vba]Код
Private Sub Worksheet_Activate()
Макрос1
End Sub
[/vba]
Сам код макроса не смотрел
Добавлено.
Посмотрел код. Можно написать немного короче
[vba]Код
Private Sub Макрос1()
ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
Range("C4:F16").HorizontalAlignment = xlCenter
End Sub
Private Sub Worksheet_Activate()
Макрос1
End Sub
[/vba]
Или вообще
[vba]Код
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
Range("C4:F16").HorizontalAlignment = xlCenter
End Sub
[/vba]