Copy only visible cells

[Djblois]

I would like to filter by column A if it is Meat, then copy it to another tab and if it is retail then copy it to another tab and Grocery to another tab. I am guessing I have to filter it and then copy but how do I copy just the visible cells? I already know how to do the filter, I just can't figure out how to copy only visible cells?

[Charlize]

Range(xxx).SpecialCells(xlCellTypeVisible).copy ws.copyto