Sub darker_X_percent()
Const darker = 0.9
If MsgBox("Сделать цвет ячеек немного темнее? Количество обрабатываемых ячеек " & Selection.Count & ". Вы уверены?", vbQuestion + vbDefaultButton2 + vbYesNo, "Внимание") = vbYes Then
    Dim change_area As Range
    Application.StatusBar = ("Проводится замена цвета в " & Selection.Count & " ячейках...")
    For Each change_area In Selection
        Colour = change_area.Interior.Color
        B = Int(Colour / 65536)
        G = Int((Colour - B * 65536) / 256)
        R = (Colour - B * 65536 - G * 256)
        ' +0.5 чтобы при отбрасывании дробной части округлить по стандартным правилам
        B = Int(B * darker + 0.5)
        G = Int(G * darker + 0.5)
        R = Int(R * darker + 0.5)
        Colour = R + G * 256 + B * 65536
        change_area.Interior.Color = Colour
    Next
MsgBox "Замена произведена.", vbInformation + vbOKOnly, "Ура!"
Application.StatusBar = False
End If
End Sub

Sub Orang()
    Range("a36").Interior.Color = 49407 'чистый оранж
    Range("a37").Interior.Color = 46834 '-5%
    Range("a38").Interior.Color = 41945 '-15%
    Range("a39").Interior.Color = 37055 '-25%
End Sub

Sub Create_Buttons_And_Module_for_buttons()
    Dim objVBProj As Object, objVBComp As Object, objCodeMod As Object
    Dim sModuleName As String, sFullName As String
    Dim sProcLines As String
    Dim lLineNum As Long
    
    'добавляем новый стандартный модуль в активную книгу
    Set objVBComp = ActiveWorkbook.VBProject.VBComponents.Add(1)
  ' не получилось задать имя objVBComp.Name = ("Buttons_For_Pivot"
    'получаем ссылку на коды модуля
    Set objCodeMod = objVBComp.CodeModule
    'узнаем количество строк в модуле
    '(т.к. VBA в зависимости от настроек может добавлять строки деклараций)
    lLineNum = objCodeMod.CountOfLines + 1
    'текст всставляемой процедуры
    sProcLines = "Sub Pivot_Big()" & vbCrLf & _
"ActiveSheet.PivotTables(""СводнаяТаблица"".PivotFields(""Название склада"".ShowDetail = True" & vbCrLf & _
"End Sub" & vbCrLf & _
"Sub Pivot_Small()" & vbCrLf & _
"ActiveSheet.PivotTables(""СводнаяТаблица"".PivotFields(""Название склада"".ShowDetail = False" & vbCrLf & _
"End Sub"
    'вставляем текст процедуры в тело нового модуля
    objCodeMod.InsertLines lLineNum, sProcLines
    
ActiveSheet.Buttons.Add(0, 29, 75, 15).Select
    Selection.OnAction = "Pivot_Small"
    Selection.Characters.Text = "Свернуть"
    ActiveSheet.Buttons.Add(76, 29, 75, 15).Select
    Selection.OnAction = "Pivot_Big"
    Selection.Characters.Text = "Развернуть"
End Sub