Setting up a search macro to find multiple words

I had to modify this a bit but this was more what I was after, thanks for the reply here is the code I used:

Sub Search2()
Dim MyArray() As String
Dim N As Long
Dim SearchRange As Range
Dim FoundCell As Range

Range("H11").CurrentRegion.ClearContents: Range("H11") = "Results"

MyArray = Split(Range("H5"), " ")
For Each Cell In Range("A2", Range("A" & Rows.Count).End(xlUp))
For N = 0 To UBound(MyArray)
If InStr(Cell, MyArray(N)) <> 0 Then
Cell.Offset(, 0).Resize(, 7).Copy Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next N
Next Cell


End Sub

Thanks again!