Boa tarde,

Supondo que os seus dados estejam no intervalo "A1:B5", sugiro a seguinte fórmula:

=SOMARPRODUTO((NÃO(ÉERROS(LOCALIZAR("PRAX";$A$1:$A$5;1))))*($B$1:$B$5))

Abraço

Leonardo, a dica do colega JValk é ótima e funciona perfeitamente, mas se preferir com o uso de VBA, pode usar a rotina abaixo, é só fazer os ajustes quanto aos ranges e o endereço que irá colocar a Soma :

Supondo que os seus dados estejam no intervalo "A2:A10" :

    Sub VerificaPalavraTexto()
    Dim sCel As Range, sRng As Range
    Dim lResult As Boolean
    Dim i
    Dim valor As Double

    i = 2 'Inicia Linha 2
    
    Set sRng = Range("A2:A10") 'a ser adaptado ao Range a percorrer.

        For Each sCel In sRng
            'Verifica se a palavra existe
            lResult = Cells(i, 1) Like "*" & "PRAX" & "*"
           
            'Se existir a Palavra soma os valores da Coluna(2)=B
            If lResult = True Then
                valor = valor + Cells(i, 2).Value
            End If
           
            i = i + 1
           
        Next sCel

        If valor = 0 Then
            Exit Sub
        Else
            'Ajuste aqui a celula que irá ter o resultado da soma, tipo :
            'Cells(2, 4).Value = valor
            MsgBox valor
        End If
    
    End Sub

[]S