VBA Code to delete Keyword

[VbaHell]

Hello all, I hope someone can help on this please

I need some VBA to do the following

In Column C2: C9997 I have a description of a part number in each cell
In column D2 & E2 i have Keywords
I want to check the value in D2 & E2 and if they keyword is in C2 then copy the contents of C2, remove only the keyword and paste the answer in F2

Example

C2

This dog wants to go for a walk

D2

dog walk

E2

wants

F2

This to go for a

 

[Shahzadt]

Try The following on test data before using it on actual data. Let me know if this is what you were looking for

Sub DeletesKeywords()

Dim NewStr As String
Dim i As Integer
Dim MyArr As Variant
Dim MyRng As Range
Set MyRng = Range("C2:C9997")


For Each oCell In MyRng
    With oCell
        MyArr = Split(.Offset(0, 1).Value & " " & .Offset(0, 2).Value)
        NewStr = .Value
        For i = LBound(MyArr) To UBound(MyArr)
            
            NewStr = Replace(NewStr, MyArr(i), "")
    
        Next i
        .Offset(0, 3).Value = NewStr
    End With


Next oCell

 

[VbaHell]

Fantastic thanks very much for your help