Option Explicit

Sub CollectAllClients()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim iTempFileName As String 'имя по-очерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы
Dim iNumFiles As Long 'количество открываемых файлов

    With Application 'операции с приложением/отключаем для повышения скорости работы макроса
        .ScreenUpdating = False 'обновление экрана
        .DisplayAlerts = False 'выод системных сообщений
        .Calculation = xlManual 'автопересчет формул
        
        'присваиваем значения нашим переменным
        Set BazaWb = ThisWorkbook
        Set BazaSht = BazaWb.Sheets("Общий")
        iPath = BazaWb.Path & "\"
        iTempFileName = Dir(iPath & "*.csv")
        Do While iTempFileName <> "" 'запускае цикл перебора файдов в папке
            If iTempFileName <> BazaWb.Name Then 'если имя файла не равно общему открываем
                With .Workbooks.Open _
                     (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
                     iNumFiles = iNumFiles + 1

                    'Здесь обработка файла
                    'здесь сохранение файла .Close saveChanges:=False
               End With
            End If
            iTempFileName = Dir 'следующий файл
        Loop
        
        'включаем что отключили
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub

=ЕСЛИ(ИНДЕКС(Спецификация!$A$7:$H$458;СТРОКА()-7;СТОЛБЕЦ())="";"";ИНДЕКС(Спецификация!$A$7:$H$458;СТРОКА()-7;СТОЛБЕЦ()))

Sub Кнопка2_Щелчок()
    If Range("A1").Value = "ON" Then
        Range("A1").Value = "OFF"
        Range("A2").Value = "OFF"
    Else:
        Range("A1").Value = "ON"
        Range("A2").Value = "ON"
    End If
End Sub

=ЕСЛИ(ПОИСКПОЗ(B19;$B$1:$B$32;0)=СТРОКА();"#Н/Д";ИНДЕКС($A$2:$A$32;ПОИСКПОЗ(B19;$B$2:$B$32;0)))

=ИНДЕКС(B$8:B$200;ПОИСКПОЗ(9E+306;A$8:A$200;1))

Option Explicit

Sub copyRow()
    Dim sSh As String, arSh, lCol As Long, sSt As String, arSt
    Dim i&, lrNach&, lrEnd&, shN As Worksheet, shD As Worksheet
    Dim lR&, flag As Boolean
    sSh = "лист1\лист2\лист3\лист4\лист5"
    sSt = "H\J\L\N\O"
    arSh = Split(sSh, "\")
    arSt = Split(sSt, "\")
    For i = 0 To 3
        Set shN = Sheets(arSh(i))
        Set shD = Sheets(arSh(i + 1))
        With shN
            lrNach = .Cells(Rows.Count, 1).End(xlUp).Row
            For lR = 5 To lrNach
                If i < 3 Then
                    Select Case i
                    Case 0
                        If .Range(arSt(i) & lR) < Date Then flag = True
                    Case 1, 2
                        If .Range(arSt(i) & lR) >= Date Then flag = True
                    End Select
                    If flag = True Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                        flag = False
                    End If
                Else
                    If .Range(arSt(i) & lR) = 1 Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                    End If
                    If .Range(arSt(i + 1) & lR) = 1 Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                        lrEnd = Sheets(arSh(0)).Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy Sheets(arSh(0)).Cells(lrEnd, 1)
                        Sheets(arSh(0)).Range("H" & lrEnd & ":Q" & lrEnd).ClearContents
                    End If
                End If
            Next lR

        End With

    Next i
End Sub

ИНДЕКС($H$1:$H$1000;ПОИСКПОЗ(1;$A$1:$A$1000;0)):ИНДЕКС($H$1:$H$1000;ПОИСКПОЗ(МАКС($A$1:$A$1000);$A$1:$A$1000;0))

=ЕСЛИ(СТОЛБЕЦ()=(ПОИСКПОЗ($B$6;$B$2:$FY$2;0)+$B$8*ЦЕЛОЕ(СТОЛБЕЦ(A$1)/$B$8)+1);"новый";"")