Keyword search, and insert row.

Hi,

I am not sure if this is possible but if it is then I should kiss whoever created it. I have a giant spreadsheet where I need to split out cost 50/50 depending on a key word which is the description of a computer and then I need the a row or 2 rows inserted underneath this row that has the key word.

For example I have the below example. I would like the macro to look for the keyword "computer" and then insert the 2 rows under it and divide the cost by half.

even if anyone knows a macro to insert the rows via keyword it would be class

Again I am probably shooting a blank gun here but if anyone has any help/ suggestions it would be great

Thanks

Another option:

Sub Blond(): Dim Key As String, Cost As Single, F As Range, r As Long
Let Key = "computer"

Set F = Range("C:C").Find(Key)
    If Not F Is Nothing Then
    r = F.row: Cost = F.Offset(0, 1)
    F.Offset(1, 0).Resize(2, 1).EntireRow.Insert
    F.Offset(1, 1) = Cost / 2: F.Offset(2, 1) = Cost / 2
        
        Do
            Set F = Range("C:C").FindNext(F)
            If F Is Nothing Then Exit Sub
            If F.row <= r Then Exit Sub
            r = F.row: Cost = F.Offset(0, 1)
            F.Offset(1, 0).Resize(2, 1).EntireRow.Insert
            F.Offset(1, 1) = Cost / 2: F.Offset(2, 1) = Cost / 2
            
        Loop While Not F Is Nothing
End If
End Sub

Set F = Range("H:H").Find(Key)
.
.
.
Set F = Range("H:H").FindNext(F)