public pNum as Long 'Порядковый номер в таблице с нужным временем задержки
Sub listAnalisys()
    pNum = 1 'Порядковый номер в таблице с нужным временем задержки
    PtimerSchet ' Запуск таймера
    EffEng ' Выполнение нужной процедуры
    pNum = 2 'Порядковый номер в таблице с нужным временем задержки
    PtimerSchet ' Запуск таймера
    EffRus ' Выполнение нужной процедуры
    pNum = 3 'Порядковый номер в таблице с нужным временем задержки
    PtimerSchet ' Запуск таймера
    EffAll ' Выполнение нужной процедуры
    pNum = 4 'Порядковый номер в таблице с нужным временем задержки
    PtimerSchet ' Запуск таймера
    Total ' Выполнение нужной процедуры
End Sub

Public pTime As Date
Sub PtimerSchet() 'Таймер
    Dim mA()
    mA = Лист5.Range("A2:B51").Value 'таблица с указанием номера и времени задержки срабатывания процедуры
    For i = 1 To 52  
        If mA(i, 1) = pNum Then 'Перебираем массив чтобы найти нужное время задержки 
            pTime = TimeValue("0:00:0" & mA(i, 2)) 
            schetchik
            Exit For
        End If
    Next i
End Sub
'------------------------------------------------------------------------
Sub schetchik()
Application.ScreenUpdating = False
        pTime = pTime - TimeValue("0:00:01")
   If pTime > 0 Then 
        Application.OnTime Now + TimeValue("00:00:01"), "schetchik" ' Выполняем перезапуск процедуры с задержкой в 1 сек
    Else
        Application.ScreenUpdating = True
        Exit Sub 'В момент когда pTime будет равен 0, завершаем процедуру
    End If
End Sub

 iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To iLastRow 
        If .Cells(i, 1) = Klient Then ' находим клиента по запросу 
        kPrih = .Cells(i, 2).Value 'вытаскиваем код прихода
        
        .............
        
        End If
    Next i

If CheckBox1 = True Then
sheets("Анализ1").Copy
End If
If CheckBox2 = True Then
sheets("Анализ2").Copy
End If
If CheckBox3 = True Then
sheets("Анализ3").Copy
End If  

Private Sub Worksheet_Change(ByVal Target As Range)
Dim p As Range
Set p = [D15]
If Not Intersect(p, Target) Is Nothing Then Range("d16:d115").Value = ""
If p > 0 Then
        Range("J17:J116").Select
                 Selection.Find(What:=p, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
       Cells(ActiveCell.Row, ActiveCell.Column - 6).Value = 1
    p.activate 
          End If
        End Sub