how to do this partial match? Thanks in advance!

Deleted 

Sub combine_delete()
    
Dim i As Long
Dim j As Long
Dim k As Long
Dim mypos As Long
Dim rowsB As Long
Dim rowsD As Long

rowsB = Range("B" & Rows.Count).End(xlUp).Row
rowsD = Range("D" & Rows.Count).End(xlUp).Row

For i = 2 To rowsB

For k = 2 To rowsD

mypos = InStr(1, Cells(i, 2), Cells(k, 4))

If mypos > 0 Then

Cells(i, 7).Value = Replace(Replace(Cells(i, 2), Cells(k, 4), ""), ",,", ",")

If Left(Cells(i, 7), 1) = "," Then
Cells(i, 7).Value = Right(Cells(i, 7), Len(Cells(i, 7)) - 1)

Else

    If Right(Cells(i, 7), 1) = "," Then
    Cells(i, 7).Value = Left(Cells(i, 7), Len(Cells(i, 7)) - 1)
    
    Else
    End If

End If

Else
End If
Next k

Next i


End Sub

Maybe with this code. In the attached file you can click the button in cell E2 to start the macro. You can enter additional data in columns B and D.