Filtered data to exclude header row

Alf,
Okay, it is another way of skipping the error.
If I want to copy, including a header, I have changed the offset to 0
ActiveSheet.AutoFilter.Range.Offset(0, 0).SpecialCells(xlCellTypeVisible).Copy
If the match is found, it works and does not make any difference, but imagine there is no match and I do not want to copy the header. Mine skips it, but your code copies the header.