Function sechenie4(L, cosf, Ip, Phase, dUnom) ' задаем нужное значение dUnom
    Dim dU As Long
    Dim S As Range
    Dim Inom As Range
    Dim v As Variant
    Set S = Sheets("Лист1").Range("D5:D20")
    Set Inom = Sheets("Лист1").Range("C5:C20")
    Dim a As Variant
    Dim b As Variant
    a = S
    b = Inom
    Dim y As Long
    Dim Z As Long
    
    Do ' подставляем значения сечений из диапазона до тех пор пока значение dU не станет меньше 4 процентов
        y = y + 1
        If y > UBound(a, 1) Then MsgBox "Не возможно подобрать кабель по сечению"
        v = a(y, 1)
        Z = Z + 1
        If Z > UBound(b, 1) Then MsgBox "Не возможно подобрать кабель по току" 'Exit Do
        Z2 = b(Z, 1)
        If Phase = "A" Or Phase = "B" Or Phase = "C" Then dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 220
        If Phase = "ABC" Then dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 380
    Loop Until dU < dUnom And Ip < Z2 'делаем проверку по dU и по Inom
        'Range("A7").Value = dU
        'ActiveCell.Offset(0, 1).Value = dU
        sechenie4 = v
        
End Function

Range("A7").Value = dU
ActiveCell.Offset(0, 1).Value = dU

Function sechenie4(L, cosf, Ip, Phase, dUnom) ' задаем нужное значение dUnom
    Dim dU As Long
    Dim S As Range
    Dim Inom As Range
    Dim v As Variant
    Set S = Sheets("Лист1").Range("F12:F21")
    Set Inom = Sheets("Лист1").Range("E12:E21")
    Dim a As Variant
    Dim b As Variant
    a = S
    b = Inom
    Dim y As Long
    Dim Z As Long
    
    Do ' подставляем значения сечений из диапазона до тех пор пока значение dU не станет меньше 4 процентов
        y = y + 1
        If y > UBound(a, 1) Then MsgBox "Не возможно подобрать кабель по сечению"
        v = a(y, 1)
        Z = Z + 1
        If Z > UBound(b, 1) Then MsgBox "Не возможно подобрать кабель по току" 'Exit Do
        Z2 = b(Z, 1)
        If Phase = "A" Or Phase = "B" Or Phase = "C" Then dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 220
        ElseIf Phase = "ABC" Then dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 380
        
    Loop Until dU < dUnom And Ip < Z2 'делаем проверку по dU и по Inom
        sechenie4 = v
      
End Function

ElseIf Phase = "ABC" Then dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 380

Range("A1").Value = dU

Range("A1").Value = dU

Function sechenie3(L, cosf, Ip)
    Dim dU As Long
    Dim S As Range
    Dim Inom As Range
    Dim v As Variant
    Set S = Range("F12:F21")
   Set Inom = Range("E12:E21")
    Dim a As Variant
    Dim b As Variant
    a = S
    b = Inom
    Dim y As Long
    Dim Z As Long
    Do ' подставляем значения сечений из диапазона до тех пор пока значение dU не станет меньше 4 процентов
        y = y + 1
        v = a(y, 1)
        Z = Z + 1
        Z2 = b(Z, 1)
        dU = 2 * ((0.0225 * L * cosf / v + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 220
        
    Loop Until dU < 4 And Ip < Z2
    sechenie3 = v
      
End Function

y = y + 1
S = a(y, 1)

Function sechenie2(L, cosf, Ip)
Dim dU As Long
Dim S As Range
Set S = Range("F12:F21")
    Do ' подставляем значения сечений из диапазона до тех пор пока значение dU не станет меньше 4 процентов
    S = Range("F12:F21")
    dU = 2 * ((0.0225 * L * cosf / S + 0.00008 * L * (1 - (cosf) ^ 2) ^ 0.5)) * Ip * 100 / 220
    Loop Until dU < 4
    sechenie2 = S
     
    'For i = 12 To 21 'перебираем строки с 12 по 21
        'If Cells(i, 5) > Ip And Cells(i, 7) < dU Then 'если проходит проверка и по току и по потере напряжения
       '   sechenie2 = Cells(i, 4)  'выбираем кабель из перечня
        '    Exit For 'выходим из цикла
        'End If
   ' Next
End Function

Function sechenie(Tok, dU)
Dim i As Long
    
    For i = 12 To 21 'перебираем строки с 12 по 21
        If Cells(i, 5) > Tok And Cells(i, 7) < dU Then 'если проходит проверка и по току и по потере напряжения
          sechenie = Cells(i, 4)  'выбираем кабель из перечня
            Exit For 'выходим из цикла
        End If
    Next
End Function

x As Long, x2 As Long

Sub Macro23()
    Dim x As Integer
     
    x = 12 'номер строки с которой начинается таблица
 
    With ThisWorkbook.Worksheets("Лист1")
        Do While .Range("E" & x) < .Range("B5") 'проверяем по току
            x = x + 1
            Loop
            Do While .Range("G" & x) > .Range("B3") 'проверяем по падению напряжения
            x = x + 1
        Loop
        .Range("B2") = .Range("D" & x)
               End With
     
End Sub

Sub Macro11()
Dim i As Long, x As Long, x2 As Long
    x = Range("B5") 'проверка по току
    x2 = Range("B3") 'проверка по потере напряжения
    For i = 12 To 21 'перебираем строки с 12 по 21
        If Cells(i, 5) > x And Cells(i, 7) < x2 Then 'если проходит проверка и по току и по потере напряжения
          Range("B2") = Cells(i, 4)  'выбираем кабель из перечня
            Exit For 'выходим из цикла
        End If
    Next
End Sub

Do While .Range("E" & x) < .Range("B5") 'проходим циклом по столбцу "Е" и сразу проверяем, что значение в ячейке меньше чем в "В5"
            x = x + 1 

Range("E" & x) > .Range("B5")

Sub Macro23()
    Dim x As Integer
     
    x = 12 'номер строки с которой начинается таблица
 
    With ThisWorkbook.Worksheets("Лист1")
        Do While .Range("E" & x) < .Range("B5") And .Range("G" & x) < .Range("B3")  'проходим циклом по столбцу "Е" и сразу проверяем, что значение в ячейке меньше чем в "В5"
            x = x + 1
        Loop
        .Range("B2") = .Range("D" & x)
               End With
     
End Sub
Sub Macro24()
    Dim x As Integer
     
    x = 12 'номер строки с которой начинается таблица
 
    With ThisWorkbook.Worksheets("Лист1")
        Do Until .Range("E" & x) < .Range("B5") And .Range("G" & x) < .Range("B3")  'проходим циклом по столбцу "Е" и сразу проверяем, что значение в ячейке меньше чем в "В5"
            x = x + 1
        Loop
        .Range("B2") = .Range("D" & x)
               End With
     
End Sub