Thanks to Luke, Edhardo, Jacob Scaria.
But my problem is going on.

Copying four filtered cells by means of macro ?

we know that there will be maximum 4 cells as result of filtering (or
we can also assume that we will copy only first four cells (grades))

In Luke' s I have this problem:
For example I will copy to A2 from the filtered place.
In A6, A7.... THERE ARE DATA.
If I make 100 as Luke' s suggestion these A6, A7... are overwritten




"Luke M" wrote:

Is it always the same 4 cells? How do you if it the filter will only give 4
results?
If what you are really wanting is to select all the results from the filter,
something like this:

Range("A2:A100").SpecialCells(xlCellTypeVisible).S elect
Selection.Copy

Where A2:A100 is the range you filtered, so that you won't get any extra
cells from the end of the workbook.
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"CousinExcel" wrote: