VBA Error - No cells were found

Help! I am getting an error (No cells were found) on the below code. There are headers in row 1 with the starting in row 2. There is data in every row n column F. The code does multiple filters for each category with the code below showing the filter for Group1 category (there are several groups). When filtered, if a particular group does not have any data for that day, then I am trying to create a new tab with the filter name along with comments on that new sheet. This is so, audit will know review this filter was completed and not overlooked. However, if a group does have data when filtered, then the filtered data (without headers) will be copied onto a sheet at the next empty row with all of the filtered data (Final sheet). I am getting an error message at the line noted below in the code.


I appreciate all help!
Also, I'm trying so hard to learn, so I would very much appreciate any explanation to code provided.

Please Login or Register  to view this content.

Correct the address on the above If codeline ! Just checking a single column …
And you can get rid of SpecialCells - useless here ! - just using Range.Copy method.
For more help attach at least a workbook …

Hi Marc. I am attaching a sample workbook of dummy data and some dummy headings with a small number of rows. The number of columns is correct. As I previously mentioned, there are several filters so hoping for the code that I had written to be generic for each filter with the exception of me changing the column number and criteria. So when I have the code working for one filter, I'm hoping that it would be a matter of copying the working and adding to the end; then update the column filter and criteria for each filter. As I mentioned, I'm learning. I included a tab to show the various filters and how they are not always the same column being filtered each time.

So are saying that the range is what is causing the 'No cells found' error message?

I attached a workbook below.

I have re-read your message and thought you were saying range was causing message but no. Sounds like you are saying that my issue is the line above where the Debug hits.
Thanks for responding and trying to help me.

According to your attachment the message is true : nothing matches the filter criteria so the reason why crashes the useless SpecialCells
where checking first on a different range has no sense !
As it seems obvious you tried to filter a wrong column so just well elaborate what exactly is your need in order there is nothing to guess …

Ah.... got it. I guess I needed another pair of eyes!
Thank you!!!