Public Sub RecalculateFTECoefs()
Dim wAnal As Worksheet
Dim wMacros  As Worksheet
Dim lr As Long
Dim lAllCnt As Long 'кол-во итераций
Const lMaxQuad As Long = 20 'сколько квадратов выводить
lAllCnt = 10000
Dim I As Long
Dim S As String

Dim iStoreRow As Long
Dim currentStore As Integer

Dim iMacrosFirstSectionRow  As Long
Dim iSection  As Long
Dim SectionName As String
Dim iMacrosSectionRow As Long

Dim iAnalFirstSectionCol As Long
Dim iAnalLastSectionCol As Long
Dim iAnalSectionHeaderRow As Long
        
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

    ' закладка "расписание"
    Set wAnal = ThisWorkbook.Worksheets("Аналитика")
    Set wMacros = ThisWorkbook.Worksheets("Для макроса")
    
    ' строка первой секции
    iMacrosFirstSectionRow = Range("Для_макроса_список_секций").Row
    
    
    'строка заголовка секций
    iAnalSectionHeaderRow = Range("Аналитика_первая_колонка_секций").Row
    ' колонка первой секции
    iAnalFirstSectionCol = Range("Аналитика_первая_колонка_секций").Column
    ' ищем колонку последней секции
    iAnalLastSectionCol = 1000
    Do
        If wAnal.Cells(iAnalSectionHeaderRow, iAnalLastSectionCol) <> "" Then Exit Do
        iAnalLastSectionCol = iAnalLastSectionCol - 1
    Loop
    
    iStoreRow = Range("Аналитика_список_магазинов").Row
    Do
    ' цикл по магазинам
    
        ' берем очередной магазин
        currentStore = Val(Worksheets("Аналитика").Cells(iStoreRow, 1))
        If currentStore = 0 Then Exit Do
        Debug.Print "Магазин: " & currentStore
        
        ' выбираем магазин и пересчитываем всё
        Range("номер_магазина") = currentStore
        Calculate

        iSection = 1
        Do
        ' цикл по секциям
        
            iMacrosSectionRow = iMacrosFirstSectionRow + iSection - 1
        
            ' название секции
            SectionName = wMacros.Cells(iMacrosSectionRow, 1)
            If SectionName = "" Then Exit Do
            
            Debug.Print "  Секция '" & SectionName & "'"
            
            ' ищем на листе Аналитика первую колонку нужной секции
            I = iAnalFirstSectionCol
            Do
                ' берем заголовок секции
                S = wAnal.Cells(iAnalSectionHeaderRow, I)
                If S = "" And I > iAnalLastSectionCol Then
                    MsgBox "Секция '" & SectionName & "' на закладке 'Аналитика' не найдена!"
                    Exit Sub
                End If
                
                If S = SectionName Then Exit Do
                I = I + 1

            Loop
            
            ' нашли колонку секции
            
            ' копируем значения
            wAnal.Cells(iStoreRow, I + 1) = wMacros.Cells(iMacrosSectionRow, 2 + 1)
            wAnal.Cells(iStoreRow, I + 2) = wMacros.Cells(iMacrosSectionRow, 2 + 2)
            wAnal.Cells(iStoreRow, I + 3) = wMacros.Cells(iMacrosSectionRow, 2 + 3)
            wAnal.Cells(iStoreRow, I + 4) = wMacros.Cells(iMacrosSectionRow, 2 + 4)
            wAnal.Cells(iStoreRow, I + 5) = wMacros.Cells(iMacrosSectionRow, 2 + 5)
            wAnal.Cells(iStoreRow, I + 6) = wMacros.Cells(iMacrosSectionRow, 2 + 6)
                
            
     For lr = 1 To lAllCnt
        Application.StatusBar = "Выполнено: " & Int(100 * lr / lAllCnt) & "%" & String(CLng(lMaxQuad * lr / lAllCnt), ChrW(9632)) & String(lMaxQuad - CLng(lMaxQuad * lr / lAllCnt), ChrW(9633))
        DoEvents
    Next
            iSection = iSection + 1
        Loop

        iStoreRow = iStoreRow + 1
    Loop

Application.StatusBar = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
   
End Sub

Sub ПростойПример1()
    КоличествоЗапусковВнешнегоМакроса = 3000

    Dim pi As New ProgressIndicator    ' создаём новый прогресс-бар
    pi.Show "Форматирование ячеек"    ' отбражаем индикатор

    ' первое действие (на шкале индикатора от 0 до 95 процентов) - это окраска ячеек
    pi.StartNewAction 0, 95, "Окраска ячеек", , , КоличествоЗапусковВнешнегоМакроса

    ' цикл с вызовом внешнего макроса "ФорматированиеЯчейки"
    For I = 1 To КоличествоЗапусковВнешнегоМакроса

        ' инициируем очередное действие в индикаторе
        pi.SubAction , "Обрабатывается ячейка $index из $count", "$time"

        ' собственно, код цикла
        RecalculateFTECoefs
    Next

    ' всё покрасили - теперь пора чистить ячейки )
    pi.StartNewAction 95, 100, "Очистка ячеек"
    Cells.Clear

    pi.Hide    ' закрываем индикатор
End Sub

        ' собственно, код цикла
      ФорматированиеЯчейки i
    Next