Advanced Filter Copy visible cells only

[carsto]

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

[PCI]

Perhaps try

Please Login or Register  to view this content.

[carsto]

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.

[PCI]

Can you send a short sample of the data to go step by step in the macro