Search document for rows containing a specific word, cut/paste into new sheet

I am attempting to sort data on a very large report, but I am very inexperienced with the use of VBA.

In sheet 1 of this report are several columns of data. What I am looking to do is get a macro that will search for a specific word in either column A OR column F, then cut/paste the entire row containing that word onto sheet 2 and remove the blank row.

Things to consider:

1. Columns A and F will contain other information than just the word I am looking for.
2. There may be, at times, a blank cell in column F
3. The report is almost 7000 rows.
4. The word may appear in BOTH column A AND column F in some rows.
5. The word may appear with both capital and lower-case letters

For instance, I may want to take any row containing the word "diagnosis" and cut/paste that entire row onto sheet 2. The word "diagnosis" may appear in 100 different rows and may appear in the same row more than once. The word "diagnosis" may also appear as "Diagnosis" or "DIAGNOSIS".

I'm not sure if I left anything out. I appreciate any help that anyone can provide. If there are any additional concerns, please let me know and I will respond ASAP. Thanks again.