Hui Please try this steps,
1. First in data table you put some color in some cells.
2. Just right click and click filter and then click "Filter by selected cell's font color"
it will work....
Hi Sandane,
You call this in command button
First you need to put the range
like:
Sub copy()
Range("cell number").selection //this is the first cell of the data//
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.copy
End Sub
I think it will help..