=ЕСЛИ(F3>5000000;"А"; ЕСЛИ(F3>=1000000;"Б";"С"))

Range("D17").Formula = "=FORECAST.ETS(C17,D5:D16,C5:C16)"

первое
=ИНДЕКС($D$1:$AC$1;АГРЕГАТ(15;6;1/($D4:$AC4<>"")*СТОЛБЕЦ($D4:$AC4);1)-СТОЛБЕЦ($D4)+1)

последнее
=ИНДЕКС($D$1:$AC$1;АГРЕГАТ(14;6;1/($D4:$AC4<>"")*СТОЛБЕЦ($D4:$AC4);1)-СТОЛБЕЦ($D4)+1)

=ИНДЕКС($D$1:$AC$1; ПОИСКПОЗ(1;1/($D4:$AC4<>"");0))

Call Run_macros

'запуск макроса'
Sub Run_macros()
   'запускаем Excel
   set objExcel = CreateObject ("Excel.Application")
   objExcel.Visible = True   
   objExcel.Workbooks.Open ("C:\kain\Macro.xlsm")
   'запуск макроса
   objExcel.run "Macros_Update_all"
   'Закрываем файл после завершения макроса
    objExcel.Workbooks("Macro.xlsm").Close(false)
   'закрываем Excel
    objExcel.Quit
end sub

Sub test()

arr1 = [Счетчик_населения_Земли].Value
ThisWorkbook.Worksheets(1).ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
arr2 = [Счетчик_населения_Земли].Value

If arr1 <> arr2 Then MsgBox "Обновилось"

End Sub

Sub printtt()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Name <> "главная" Then
        If Not IsError(sh.Cells(1, 2).Value) Then
            If sh.Cells(1, 2) <> "" Then
                sh.PrintOut Copies:=1
            End If
        End If
    End If
Next sh
End Sub

Sub printtt()
    Dim sh As Worksheet
    For Each sh In Worksheets
       If Not IsError(sh.Cells(1, 2).Value) Then
         If sh.Cells(1, 2) <> "" Then
             sh.PrintOut Copies:=1
         End If
       End If
    Next sh
End Sub

Sub printtt()
Dim sh As Worksheet
   For Each sh In Worksheets
      If Not IsError(sh.Cells(1, 2)) and sh.Cells(1, 2)<>"" Then sh.PrintOut Copies:=1
   Next sh
End Sub

=ЕСЛИОШИБКА(ИНДЕКС(Таблица2[Распорядок];АГРЕГАТ(14;6;1/([@День]=Таблица2[День])*([@Месяц]=Таблица2[Месяц])*(([@Время]>=Таблица2[Время]))*СТРОКА(Таблица2[Распорядок]);1)-1);"-")

=АГРЕГАТ(14;6;1/(B2=ТС!$A$2:$A$1826)/(C2>ТС!$C$2:$C$1826)*(ТС!$C$2:$C$1826);1)

=АГРЕГАТ(14;6;1/(B2=ТС!$A$2:$A$1826)/(E2=ТС!$C$2:$C$1826)*(ТС!$B$2:$B$1826);1)

=АГРЕГАТ(14;6;1/(B3=ТС!$A$2:$A$1826)/(ЦЕЛОЕ(C3)>ЦЕЛОЕ(ТС!$C$2:$C$1826))*(ЦЕЛОЕ(ТС!$C$2:$C$1826));1)

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\16.0\Outlook\Security]
"ObjectModelGuard"=dword:00000002

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\16.0\Outlook\Security]
"ObjectModelGuard"=dword:00000002

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Outlook\Security]
"ObjectModelGuard"=dword:00000002

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Outlook\Security]
"ObjectModelGuard"=dword:00000002

СТРОКА(1:1)
ЧСТРОК($A$1:$A1)
СТРОКА()-СТРОКА(ПерваяЯчейкаФормулы)+1