=LAMBDA(КолВоЛет;ГодДоход;ГодИндекс;ГодРасход; 
ЕСЛИ(КолВоЛет<=0; 0; 
(ГодДоход*(1+ГодИндекс)^(КолВоЛет-1)-ГодРасход)+ПрибыльЗаПериод(КолВоЛет-1;ГодДоход;ГодИндекс;ГодРасход)))

Sub CombineWorkbooks()
 
    Dim i As Integer
    Dim wbName As String
 
    'вызываем диалог выбора файлов для импорта
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        For i = 1 To .SelectedItems.Count
            wbName = Right(.SelectedItems(i), Len(.SelectedItems(i)) - Len(.InitialFileName))
            If LCase(wbName) Like "*01.01.2020*" Then
                Workbooks.Open (.SelectedItems(i))
            End If
        Next
    End With
    

End Sub

Sub Test()
Dim myPath As String, myName As String, Wb As Workbook, iSum As Single, r

    myPath = "D:\Папка\"
    
    myName = Dir(myPath & "*.xlsx")
'   цикл по всем файлам указанного типа
    Do While myName <> ""
'        открываем очередной файл в режиме "Только для чтения" и присваиваем его переменной
        Set Wb = Workbooks.Open(Filename:=myPath & myName, ReadOnly:=True)
        Wb.Activate
        
'        делаем что надо
        On Error Resume Next
        Set r = Application.InputBox("Выберите ячейку для сумирования:", Type:=8)
        
        If r Is Nothing Then
            Wb.Close SaveChanges:=False
            Exit Sub
        End If
        On Error GoTo 0
        
        iSum = iSum + WorksheetFunction.Sum(r)
        
'        закрываем файл не сохраняя изменений в нём
        Wb.Close SaveChanges:=False
'        определяем имя следующего файл в указаной директории
        myName = Dir
        
    Loop
    
    ActiveCell.Value = iSum
    
End Sub

Sub PleaseHelp()
    
    Dim i As Long
    Dim j As Long
    Dim rngReportClear As Range 'Диапазон для очистки
    
    Dim wsMain As Worksheet     'Лист с иходными данными
    Dim wsReport As Worksheet   'Лист с отчетом
    
    Set wsMain = ThisWorkbook.Worksheets("Лист1")
    Set wsReport = ThisWorkbook.Worksheets("Отчет")

    'Очистка отчета
    Set rngReportClear = wsReport.Cells(1, 1).CurrentRegion.Offset(1, 0)
    Set rngReportClear = rngReportClear.Resize(rngReportClear.Rows.Count - 1, 5)
    rngReportClear.ClearContents
    
    i = 8   'Начальная строка главной таблицы
    j = 2   'Начальная стройка отчетной таблицы
    
    'Пока Таб в глвной таблице не пустой не пустой
    Do While wsMain.Cells(i, 2) <> ""
        If wsMain.Cells(i, 2) <> wsReport.Cells(j - 1, 1) Or wsMain.Cells(i, 3) <> wsReport.Cells(j - 1, 3) Then
            wsReport.Cells(j, 1) = wsMain.Cells(i, 2)
            wsReport.Cells(j, 2) = wsMain.Cells(i, 1)
            wsReport.Cells(j, 3) = wsMain.Cells(i, 3)
            wsReport.Cells(j, 4) = wsMain.Cells(i, 4)
            wsReport.Cells(j, 5) = wsMain.Cells(i, 4)
            j = j + 1
        Else
            wsReport.Cells(j - 1, 5) = wsMain.Cells(i, 4)
        End If
        i = i + 1
    Loop
    
    wsReport.Activate
    
End Sub

Sub CombineWorkbooks()

    Dim FilesToOpen As Variant
    Dim i As Integer
    Dim importWB As Workbook

    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
        (FileFilter:="All files (*.*), *.*", _
        MultiSelect:=True, Title:="Files to Merge")
  
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
    'проходим по всем выбранным файлам
    For i = 1 To UBound(FilesToOpen)
        Set importWB = GetObject(FilesToOpen(i))
        If importWB.Name Like "*01.01.2020*" Then
            importWB.Windows(1).Visible = True
        Else
            importWB.Close False
        End If
    Next
End Sub

Sub DelDup()

    Dim i As Long
    Dim wsOne As Workbook
    Dim wsTwo As Workbook
    
    Dim f As Range
    
    Set wsOne = Application.Workbooks.Open((ThisWorkbook.Path & "\1.xlsx"))
    Set wsTwo = Application.Workbooks.Open((ThisWorkbook.Path & "\2.xlsx"))
        
    For i = 1 To wsOne.Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
        Set f = wsOne.Worksheets(1).Columns(1).Find(wsTwo.Worksheets(1).Cells(i, 1).Value)
        If Not f Is Nothing Then
        wsTwo.Worksheets(1).Cells.Rows(i).Delete
        End If
    Next
    
    ThisWorkbook.Activate

    
End Sub