Macro needed to select visible cells

Hi All, can someone provide me with the code needed to select visble cells based on a filter (cell B1) - being "today"

The important part is skipping to the next part of the macro is no selections are found (currently the macro selects the entire workbook).

I've spent 5 hours trying to work this out this morning and its beaten me - so thanks in advance

Please see atttched, as you can see there are no cells with date = today, so the filter should not find any data to copy.

If ther filter was set for = yesterday it should find 7 rows and copy A:R for these 7 rows