Creating an Error Message box if Macro does not have anything to copy

I am working on an expense spreadsheet that allows our employees to enter all their invoice data onto one page of the workbook, then by clicking a macro button all the data is copied into the datapage for analysis. Right now the macro to copy the data works but I would like to add an error message if ALL the values in the Q range = "N" (it only copies rows that have a "Y" in column Q).

Here is the current code

Please Login or Register  to view this content.

Thank you for any help!

Expense- 3test.xlsmThanks for your help Tigeravatar. I am getting a 1004 error on the autofilter. I have attached the file I am working on and the Macro you provided is under CopyTest

Hmm. It is still not working for me and is hiding rows 2-49. Any suggestions on what could be causing the difference on our machines? I'm running this on Excel Mac2011.

That worked! Thank you