Private Sub formating()
     Dim i As Long, j As Long
     Dim tbRowStart As Long, tbRowEnd As Long
     Dim tbColStart As Long, tbColEnd As Long
     Dim pF As PivotField
     Dim arrColor, sColor$

     arrColor = Array(vbRed, vbCyan, vbYellow, vbGreen, vbMagenta, vbBlue)

     With ActiveSheet

         If .PivotTables.Count <> 1 Then Exit Sub
         With .PivotTables.Item(1)

             On Error Resume Next
             For Each pF In .RowFields
                 pF.ShowDetail = True
             Next
             For Each pF In .DataFields
                 If pF.Function <> xlSum Then
                     pF.Caption = Replace(pF.Caption, Split(pF.Caption)(0), "Сумма")
                     pF.Function = xlSum
                 End If
                 If pF.Name Like "*Процент*" Then
                     If pF.NumberFormat <> "0""%""" Then pF.NumberFormat = "0""%"""
                 ElseIf pF.Name Like "*Трудо*" Then
                     If pF.NumberFormat <> "0""час""" Then pF.NumberFormat = "0""час"""
                 Else
                     If pF.NumberFormat <> "#,##0.00$" Then pF.NumberFormat = "#,##0.00$"
                 End If
             Next
             If Err Then Err.Clear

             .TableRange1.EntireRow.Hidden = False
             .TableRange1.Interior.Color = xlNone
             tbRowStart = .RowFields(1).LabelRange.Row
             '          tbRowStart = .TableRange1.Row
             tbRowEnd = .TableRange1.Row + .TableRange1.Rows.Count - 1

             tbColStart = .TableRange1.Column
             tbColEnd = .TableRange1.Columns.Count + tbColStart - 1

             .TableRange1.Columns(1).ColumnWidth = 60
             .TableRange1.Rows.AutoFit

         End With

        For i = tbRowEnd To tbRowStart Step -1

             For j = 2 To tbColEnd Step 2
                 If IsNumeric(.Cells(i, j)) Then
' УСЛОВИЕ &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
                     If .Cells(i, j + 1) <> .Cells(i, j) Then
' &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
                         If .Cells(i, 1).PivotField.Orientation = 1 Then
                             sColor = .Cells(i, 1).PivotField.Position - 1
                             .Cells(i, 1).Interior.Color = arrColor(sColor)
                             .Range(.Cells(i, j), .Cells(i, j + 1)).Interior.Color = arrColor(sColor)
                         End If
                     End If
                 End If
             Next

             If .Cells(i, 1).Interior.Pattern = xlNone Then
                 .Cells(i, 1).EntireRow.Hidden = True
             End If
         Next

     End With
End Sub

VypKol = PT.GetPivotData("Выпол плана кол-во, %", "Клиент", Klient.Value, "статус", "Факт", "ДатаЗнач", Month(Mesyac), "Для итогов", "Все", "Годы", Year(Mesyac))