Not recommending this code but does it do what you're after? If so, we can look at better solution.
Sub Search_Replace()
Dim oData As Range, oCell As Range
Dim i As Long, j As Long
Dim wsT As Worksheet
Dim wsR As Worksheet
Set wsT = Worksheets("Table")
Set wsR = Worksheets("Replace")
Set oData = wsT.Range("A:A").Cells.SpecialCells(xlCellTypeConstants)
For i = 2 To wsT.Cells(Rows.Count, "B").End(xlUp).Row
For Each oCell In Range(wsR.Cells(2, 1), wsR.Cells(Rows.Count, 1).End(xlUp)).Cells
If InStr(1, oCell, wsT.Cells(i, "B").Value) > 0 Then 'String to find
wsT.Range("D" & i).Copy oCell.Offset(0, 2)
wsT.Range("E" & i).Copy oCell.Offset(0, 5)
wsT.Range("F" & i).Copy oCell.Offset(0, 7)
End If
Next oCell
Next i
End Sub