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

Private Sub Количество_AfterUpdate()
    If Количество <= 0 Then
        MsgBox "Введите число больше нуля"
        Количество = ""
        Количество.SetFocus
        Exit Sub
    End If
End Sub

Option Explicit
Public Таблица1 As ListObject

Private Sub ListBox1_Change()
    Dim i As Integer
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Таблица1.ListRows(i + 1).Range.Select
        End If
    Next
End Sub

Private Sub UserForm_Initialize()

    Set Таблица1 = ThisWorkbook.Worksheets("Лист1").ListObjects("Таблица1")
        
    With ListBox1
        ListBox1.Clear
        Dim i As Integer
        For i = 1 To Таблица1.ListRows.Count
            .AddItem
            .Column(0, .ListCount - 1) = Таблица1.DataBodyRange(i, 2)
            .Column(1, .ListCount - 1) = Таблица1.DataBodyRange(i, 4)
        Next
    End With
    
End Sub

Sub Сохранение()

    Папка = "D:\" & Range("A1")
    Подпапка = Range("A2")
    Путь = Папка & "\" & Подпапка
    Название = Range("A3")
    ИмяФайла = Путь & "\" & Название
    
    If Dir(Папка, vbDirectory) = "" Then
        MkDir (Папка)
        ChDir (Папка)
        Else: ChDir (Папка)
    End If
    
    If Dir(Путь, vbDirectory) = "" Then
        MkDir (Путь)
        ChDir (Путь)
        Else: ChDir (Путь)
    End If
    
    ActiveWorkbook.SaveAs (ИмяФайла)

End Sub

{=ИНДЕКС(ЗНАЧЕНИЯ;
ПОИСКПОЗ(МИН(ЕСЛИ(ДИАПАЗОН_Y>=Искомый_Y;ДИАПАЗОН_Y;""));ДИАПАЗОН_Y;0);
ПОИСКПОЗ(МИН(ЕСЛИ(ДИАПАЗОН_X>=Искомый_X;ДИАПАЗОН_X;""));ДИАПАЗОН_X;0))}

=ПОБЛИЖБОЛ(ЗНАЧЕНИЯ; ДИАПАЗОН_Y; Искомый_Y; ДИАПАЗОН_X; Искомый_X)