Guru do Excel e Power BI

=$C$13*(SOMARPRODUTO(($B$2:$B$9<B15)*$B$2:$B$9*$C$2:$C$9)+(B15-PROCV(B15;$B$2:$C$9;1;1))*PROCV(B15;$B$2:$C$9;2;1))

Function CalcComissao(ValVendas As Variant, QtdVendas, QtdRevend As Range, Percentua As Range)
    Erro = ""
    If QtdRevend.Rows.Count <> Percentua.Rows.Count Or _
       QtdRevend.Columns.Count <> Percentua.Columns.Count Then
       Erro = "A quantida de colunas e linhas das faixas de ""Quantidade de vendedores"" " & _
       "e de ""Percentual"" devem ser as mesmas."
    End If
       
    If (QtdRevend.Rows.Count <> 1 And QtdRevend.Columns.Count <> 1) Or _
       (Percentua.Rows.Count <> 1 And Percentua.Columns.Count <> 1) Then
       Erro = "As faixas de ""Quantidade de vendedores"" e de ""Percentual"" " & _
              "devem ter apenas uma dimensão (ou 1 linha, ou 1 coluna)."
    End If
       
    Aux1 = ""
    If ValVendas.Count <> 1 Then Aux1 = "O ""Valor De Venda"
    If ValVendas.Count <> 1 Then Aux1 = "A ""Quantidade Vendida"
    If Aux1 <> "" Then Erro = Aux1 & """ deve ser apenas 1 célula, e não uma faixa."
    
    If Erro <> "" Then
        MsgBox Erro
        CalcComissao = "ERRO"
    Else
        Total = 0: Anterior = 0
        For Each Cel1 In QtdRevend
            Lin = Cel1.Row - QtdRevend.Row + 1
            Col = Cel1.Column - QtdRevend.Column + 1
            Per = Percentua.Cells(Lin, Col)
            If QtdVendas >= Cel1.Value Then Desconta = 0 _
                                       Else Desconta = Anterior
            Total = Total + ValVendas * Per * (Cel1.Value - Desconta)
            If QtdVendas <= Cel1.Value Then Exit For
            Anterior = Cel1.Value
        Next
        CalcComissao = Total
    End If
End Function