Подскажите, пожалуйста, можно ли скопировать значение всех ячеек из одной колонки в другую при включенном фильтре?  
Если делать просто:  
Worksheets("Лист1").Columns("M:M").Copy  
Worksheets("Лист1").Columns("N:N").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  
то получается что строки скрытые фильтром не копируются.  
 
P.S. Делается это все при уходе с листа, т.е. в конструкции:  
Private Sub Worksheet_Deactivate()  
   Application.EnableEvents = False  
   ...  
   Application.EnableEvents = True  
End Sub

Добрый день!  
 
Подскажите, пожалуйста, как выполнить действие на листе с которого уходим?  
Private Sub Worksheet_Deactivate()  
   Worksheets("Лист1").Columns("M:M").Copy (Лист1 это тот с которого уходим)  
End Sub  
Если прописать таким образом, то уходим в бесконечный цикл.  
Типа "Лист1" покинули (сработал Deactivate), потом для выполнения действия на этом листе мы опять его активируем, и все начинается по новой...