=ПСТР(E11;ПОИСК(" грн";E11)-5;5)*ПСТР(E11;ПОИСК(" дней";E11)-3;3)

Function ИЗВЛЕЧЬ_ЦЕЛЫЕ(ParamArray Диапазон())
        Dim rArea, rCell, sStr$, i&
        For Each rArea In Диапазон
            For Each rCell In IIf(rArea.Count = 1, Array(rArea.Value), rArea.Value)
                sStr = sStr & " " & rCell
            Next rCell
        Next rArea
        With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\b\d+\b" ' чтоб адреса ячеек не считала:-)
            If Not .test(sStr) Then Exit Function
                With .Execute(sStr)
                ReDim Arr(1 To .Count)
                For i = 0 To .Count - 1: Arr(i + 1) = CLng(.Item(i).Value): Next i
                ИЗВЛЕЧЬ_ЦЕЛЫЕ = Arr
            End With: End With
            'Зачем возвращать ошибку? Вернем 0
'    ИЗВЛЕЧЬ_ЦЕЛЫЕ = CVErr(xlErrValue)   ' вернуть ошибку #ЗНАЧЕНИЕ если была ошибка
End Function

=СЧЁТ()