Sub Proba()
    Dim diapazonZamovl As Integer
    Dim arrZamovl()
    arrZamovl = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 5)).Value
      Sum = 0
    For diapazonZamovl = 1 To UBound(arrZamovl)
        
        If arrZamovl(diapazonZamovl, 1) = Cells(ActiveCell.Row, 1) _
        And arrZamovl(diapazonZamovl, 4) _
        Like "*ванс*" Then
            Range("g1") = arrZamovl(diapazonZamovl, 5)
        End If
        
        If arrZamovl(diapazonZamovl, 3) = Cells(ActiveCell.Row, 3) _
        And arrZamovl(diapazonZamovl, 2) = "" Then
             Sum = Sum + arrZamovl(diapazonZamovl, 5)
        End If
        
    Next diapazonZamovl
    Range("g2") = Sum

End Sub