Copy/Paste entire filtered column to another

[ivanovmr]

Hello,

I have to copy entire filtered column to another which is filtered too..
I have tried with Range("F1").EntireColumn.Copy Range("C1").EntireColumn but I get this error: This action won't work on multiple selections

How I can copy and paste columns after filtering? I need to do filter by value then to copy all results from one column to another in the same sheet.

 

[gordsky]

try
l

range("F1:F" & range("F1").SpecialCells(xlCellTypeLastCell).row).SpecialCells(xlCellTypeVisible).Copy range("C1")

 

[ivanovmr]

try
l

range("F1:F" & range("F1").SpecialCells(xlCellTypeLastCell).row).SpecialCells(xlCellTypeVisible).Copy range("C1")

Thanks a lot