Sub Копирование()
    Dim V As String
    V = 2
    While Range("A" & V).Value <> ""
    If Range("A" & V) = Range("A" & V - 1) Then

    If Range("D" & V) = "Выход" Then
    Application.CutCopyMode = False
    Range("B" & V, "E" & V).Cut Destination:=Range("G" & V - 1, "J" & V - 1)
    Range("K" & V - 1) = "Формула"
    Range("L" & V - 1) = "Формула2"
        End If
    Else
    If Range("D" & V) = "Выход" Then
    Application.CutCopyMode = False
    Range("B" & V, "E" & V).Cut Destination:=Range("G" & V, "J" & V)
    Range("K" & V) = "Формула"
    Range("L" & V) = "Формула2"
        End If
    End If
    V = V + 1
    Wend
End Sub

=ЕСЛИ($AA748="USD";ОКРУГЛ(AM748*ВПР($L748;USD!$A:$B;2;1);2);ЕСЛИ($AA748="EUR";ОКРУГЛ(AM748*ВПР($L748;EUR!$A:$B;2;1);2);ЕСЛИ($AA748="RUR";AM748;"")))

Set InputRange = Range("F1", Range("F1").End(xlDown))
 

Sub Combinator2()
    Dim Data() As Variant, goal As Double, sel_count As Integer, prec As Double, t As Single, AddSum As Double
    Const LIMIT = 1000000
    Randomize
    
    prec = Range("D5").Value
    sel_count = Range("D2").Value
    goal = Range("D4").Value
    
    Set OutRange = Range("D8")
    Set InputRange = Range("A1", Range("A1").End(xlDown))
    input_count = InputRange.Cells.Count
    Data = InputRange.Value
    t = Timer

    Do
     AddSum = 0
     For j = 1 To sel_count
      RandomIndex = Int(Rnd * (input_count - j + 1) + j)
      RandomValue = Data(RandomIndex, 1)
      AddSum = AddSum + RandomValue
      Data(RandomIndex, 1) = Data(j, 1)
      Data(j, 1) = RandomValue
     Next j
     If Abs(AddSum - goal) <= prec Then
      Range("D3").Value = AddSum
      Debug.Print Timer - t, iterations
      MsgBox "Подбор завершен. Необходимая точность достигнута."
      Range(OutRange, OutRange.End(xlDown)).ClearContents
      OutRange.Resize(sel_count, 1).Value = Data
      Exit Sub
     End If
     iterations = iterations + 1
    Loop While iterations <= LIMIT
    Debug.Print Timer - t
    MsgBox "Достигнут лимит попыток. Решение не найдено."
End Sub 

If InStr(1, Target.Value, "Хлеб") > 0 Then
        Application.EnableEvents = False
        Range("A1") = "Черствый хлеб"
   If InStr(1, Target.Value, "Лук") > 0 Then
        Range("A1") = "Зеленый Лук"
        Application.EnableEvents = True