Advanced Filter Copy visible cells only

Please Login or Register  to view this content.

This code does what it is supposed to do. Copies Unique entries in Column 7 to a new worksheet. (This code came from rondebruin)

However, the data is prefiltered and I only want it to copy Visible Unique Entries in Column 7.
The filter is Column 5 is >= DATE - B2 (B2 contains 90)
I can't figure out how to put this into CriteriaRange.

adding .SpecialCells(xlCellTypeVisible) to FilterRange did not do the trick

adding .SpecialCells(xlCellTypeVisible) to FilterRange DOES NOT do the trick

it errors stating the command requires at least two rows of source data….. But the source data is many rows.