Is this similar to what you are looking for?
Dim i, j, k As Long
j = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To j
For k = 2 To 4
If InStr(Cells(i, 4), Cells(k, 2).Value) Then
Cells(i, 5).Value = Cells(k, 1).Value
An alternative could be these lines of code. In the attached file you can click the button in cell H2 to run the macro that enters the results in column E.