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

I'm getting an error since I have data in column C also.
I just need the macro to overwrite the original QTY and then delete the "Qty. typical for #" statement.

Here's an example of the data.

j0RIU.png

In terms of the data table, the header is just from the original sheet and I don't necessarily need it to continue what I'm trying to achieve.
I'm essentially just consolidating many separate units into 1 final for a complete count of materials.

So, I wonder if I remove the header first, this would be easier to achieve.

Option Explicit
Sub Human()

Dim lngRow      As Long
Dim lngQTY      As Long
Dim lngQTYrow   As Long

For lngRow = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(lngRow, 1) Like "*Qty. typical for *" Then
        lngQTY = CLng(Trim(Replace(Cells(lngRow, 1), "Qty. typical for ", "")))
        Cells(lngRow, 1) = ""
        For lngQTYrow = lngRow + 2 To Range("B" & Rows.Count).End(xlUp).Row
            If Cells(lngQTYrow, 2) = "" Then
                lngRow = lngQTYrow
                Exit For
            Else
                Cells(lngQTYrow, 2) = Cells(lngQTYrow, 2) * lngQTY
            End If
        Next
    End If
Next

End Sub

No problem, glad I could help out.