Search for keywords and copy rows containing keywords to new sheet

thanks to you guys.

AB33: your macro works very well with the example but it fails when I copy it to my real excel file with 3500 rows. The data actually starts from row 5 in my real excel sheet. The debug highligths the line If x(i,3) like ... and says x(i,3)=<subscript out of range>.
If I change to i=5 instead of i=2 as the list starts from row 5 then I get another bug at the line .Range("A2").Resize(n, UBound(y,2))=y

OllieB: In the example sheet I have 2 lines containing the word "Structural" but only one of them is copied.

If you have gaps in your data, you can use this line, instead.

 With Worksheets("Sheet1")
    x = .Range("a5:c" & .Range("A" & .Rows.Count).End(xlUp).Row)
 End With