Copy visible cells

[mp3909]

Hi,

How do I copy a filtered list where some of my values contain formulas?

I tried doing

Range("A1:F500").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeFormulas).Copy

but it says no cells were found