вот так?Вот так он выглядит:


Sub Д_клиенты()
'
' Д_клиенты Макрос
'

'
    Sheets("спрКл").Select
    ActiveSheet.PivotTables("СводнаяТаблица3").PivotCache.Refresh
    Sheets("спр.адресД").Select
    Range("C3").Select
    ActiveSheet.PivotTables("СводнаяТаблица1").RepeatAllLabels xlRepeatLabels
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
    Range("F3").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").RepeatAllLabels xlRepeatLabels
    Range("F3:F13").Select
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 115
    ActiveWindow.ScrollColumn = 124
    ActiveWindow.ScrollColumn = 130
    ActiveWindow.ScrollColumn = 143
    ActiveWindow.ScrollColumn = 156
    ActiveWindow.ScrollColumn = 166
    ActiveWindow.ScrollColumn = 181
    ActiveWindow.ScrollColumn = 196
    ActiveWindow.ScrollColumn = 214
    ActiveWindow.ScrollColumn = 232
    ActiveWindow.ScrollColumn = 248
    ActiveWindow.ScrollColumn = 268
    ActiveWindow.ScrollColumn = 286
    ActiveWindow.ScrollColumn = 302
    ActiveWindow.ScrollColumn = 323
    ActiveWindow.ScrollColumn = 341
    ActiveWindow.ScrollColumn = 355
    ActiveWindow.ScrollColumn = 376
    ActiveWindow.ScrollColumn = 392
    ActiveWindow.ScrollColumn = 412
    ActiveWindow.ScrollColumn = 428
    ActiveWindow.ScrollColumn = 445
    ActiveWindow.ScrollColumn = 463
    ActiveWindow.ScrollColumn = 484
    ActiveWindow.ScrollColumn = 504
    ActiveWindow.ScrollColumn = 523
    ActiveWindow.ScrollColumn = 538
    ActiveWindow.ScrollColumn = 554
    ActiveWindow.ScrollColumn = 577
    ActiveWindow.ScrollColumn = 591
    ActiveWindow.ScrollColumn = 617
    ActiveWindow.ScrollColumn = 636
    ActiveWindow.ScrollColumn = 664
    ActiveWindow.ScrollColumn = 679
    ActiveWindow.ScrollColumn = 702
    ActiveWindow.ScrollColumn = 725
    ActiveWindow.ScrollColumn = 745
    ActiveWindow.ScrollColumn = 766
    ActiveWindow.ScrollColumn = 776
    ActiveWindow.ScrollColumn = 792
    ActiveWindow.ScrollColumn = 808
    ActiveWindow.ScrollColumn = 820
    ActiveWindow.ScrollColumn = 828
    ActiveWindow.ScrollColumn = 835
    ActiveWindow.ScrollColumn = 840
    ActiveWindow.ScrollColumn = 844
    ActiveWindow.ScrollColumn = 846
    ActiveWindow.ScrollColumn = 848
    ActiveWindow.ScrollColumn = 849
    Range("F3:AFV13").Select
    Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
        False
    Sheets("Д_клиенты").Select
End Sub
Sub П_клиенты()
'
' П_клиенты Макрос
'

'
    Sheets("спрКл").Select
    Range("C3").Select
    ActiveSheet.PivotTables("СводнаяТаблица5").PivotCache.Refresh
    Sheets("спр.адресП").Select
    Range("C3").Select
    ActiveSheet.PivotTables("СводнаяТаблица1").RepeatAllLabels xlRepeatLabels
    ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
    Range("F3").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").RepeatAllLabels xlRepeatLabels
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotCache.Refresh
    Range("F3:F13").Select
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 63
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 119
    ActiveWindow.ScrollColumn = 142
    ActiveWindow.ScrollColumn = 166
    ActiveWindow.ScrollColumn = 194
    ActiveWindow.ScrollColumn = 219
    ActiveWindow.ScrollColumn = 233
    ActiveWindow.ScrollColumn = 255
    ActiveWindow.ScrollColumn = 274
    ActiveWindow.ScrollColumn = 297
    ActiveWindow.ScrollColumn = 325
    ActiveWindow.ScrollColumn = 345
    ActiveWindow.ScrollColumn = 373
    ActiveWindow.ScrollColumn = 405
    ActiveWindow.ScrollColumn = 420
    ActiveWindow.ScrollColumn = 448
    ActiveWindow.ScrollColumn = 471
    ActiveWindow.ScrollColumn = 510
    ActiveWindow.ScrollColumn = 538
    ActiveWindow.ScrollColumn = 573
    ActiveWindow.ScrollColumn = 604
    ActiveWindow.ScrollColumn = 627
    ActiveWindow.ScrollColumn = 643
    ActiveWindow.ScrollColumn = 666
    ActiveWindow.ScrollColumn = 674
    ActiveWindow.ScrollColumn = 686
    ActiveWindow.ScrollColumn = 697
    ActiveWindow.ScrollColumn = 708
    ActiveWindow.ScrollColumn = 722
    ActiveWindow.ScrollColumn = 728
    ActiveWindow.ScrollColumn = 738
    ActiveWindow.ScrollColumn = 745
    ActiveWindow.ScrollColumn = 751
    ActiveWindow.ScrollColumn = 759
    ActiveWindow.ScrollColumn = 767
    ActiveWindow.ScrollColumn = 777
    ActiveWindow.ScrollColumn = 789
    ActiveWindow.ScrollColumn = 800
    ActiveWindow.ScrollColumn = 807
    ActiveWindow.ScrollColumn = 813
    ActiveWindow.ScrollColumn = 817
    ActiveWindow.ScrollColumn = 820
    Range("F3:AEQ13").Select
    Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
        False
    Sheets("П_клиенты").Select
End Sub