Somiya,

Use SpecialCells with the visble cells qualifier

Range("myList").SpecialCells(xlCellTypeVisible).Co py
Destination:=Range("M1")


Change M1 to suit
--

HTH

Bob Phillips

"Soniya" wrote in message
...
Hi all,

I have the following:
Column D data area is defined as "My List"
No I filter the sheet Field 4 (Mylist) and returns the
data based on crieteria
how can I select only those filtered items less Label to
copy to other column??

TIA
Soniya