Find text on one sheet search through another and place results on third

Ok here goes bare with me.

Sheet1 = 1st report is seperated nicly from a:m and 1:3000 (containing text, numbers, symbols in various forms such as abreviations, email addresss, ip address, phone numbers and residental address).

Sheet2 = (A:K) (1:1000) Restricted names, ip addresses, address (same as above)

Sheet3= Results wanted here.

So What I'm tyring to do is use the list in sheet2 to search through sheet1 and if any match then place the results in sheet3 (whole row copy and paste). I have found a Macro to help me with this but not to the extremes that I need.

My problem is this macro only goes as far as part words in a cell so example being:
"john abbot" search for john and its found
"johnabbot" search for john and its not found.

I hope I have explained it well enough. Code I using is below (and thanks in advance for any help).

Please Login or Register  to view this content.

After coping this one in and trying to run it I get an error "Run-time error '438': Object doesn't support this property or method"

The part it stops at is below

Please Login or Register  to view this content.