Macro to find text and multiply by number in statement

Maybe:

Sub Human()

Dim rngCell As Range

For Each rngCell In Range("B2", Range("B" & Rows.Count).End(xlUp))
    If rngCell.Offset(, -1) Like "*Qty. typical for *" Then
        rngCell.Offset(, 1) = CLng(Trim(Replace(rngCell.Offset(, -1), "Qty. typical for ", ""))) * rngCell
    End If
Next

End Sub