=ЕСЛИОШИБКА(AGGREGATE(15;6;C3:G3/(C3:G3>=C2);1);МИН(C3:G3))

Sheets("Системный").Select
Range(Cells(22, 2), Cells(Cells(1, 9), 2)).Copy
Sheets("Таблица").Select
Range(Cells(4, Sheets("Системный").Cells(2, 7)), Cells(Sheets("Системный").Cells(2, 8), Sheets("Системный").Cells(2, 7))).PasteSpecial xlPasteValues

Workbooks("хранение.xls").Close

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
                       Optional ByVal InitialPath As String = "c:\") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    Dim PS As String: PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function
Sub start()
ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path)
If ПутьКПапке = "" Then Exit Sub
MsgBox "Выбрана папка: " & ПутьКПапке, vbInformation
Sheets("Заявки").Visible = True
Sheets("Системный").Visible = True
Workbooks.Open ПутьКПапке & "хранение" & ".xls"
Application.ScreenUpdating = False
Workbooks("хранение.xls").Worksheets("$$$29106").Range("A1:FZ200").Copy
Workbooks("Журнал прихода-расхода.xlsm").Activate
Sheets("Заявки").Activate
ActiveWorkbook.Worksheets("Заявки").Range("A1").Select
ActiveSheet.Paste

Workbooks.Open ПутьКПапке & "хранение*" & ".xls*"

Sub Макрос2() 
' 
Range(Cells(4, 1), Cells(94, 1)).Select 
Selection.Copy 
For i = 1 To 10 Step 3 
Range(Cells(4, i), Cells(94, i)).Select 
ActiveSheet.Paste 
Next i 
End Sub