I have a macro that filters data by certain criteria. Once the data is filtered, the data will than be copied and pasted to a different sheet. However, in the event that no data is filtered as it didn't match the criteria, I get an error in the copy code below as it states "No cells were found" Run-time-error '1004'

Code:

'Copy data to CR Table
Sheets("EAS Dump").Range("H3:H4000").SpecialCells(12).Copy


Is there a way that it will not error out and do nothing when there is no data...?

Thanks