VBA Copy and Paste with filter

[Mpmcderm]

The following code works well except if the table is filtered. any ideas on how to get around that without undoing the filtering?

Sub Table_Move()

    Dim tbl As ListObject
    Dim N As String
    Dim O As String
        
    Call Clear
        
    N = "New"
    O = "Old"
    
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    tbl.ListColumns(N).DataBodyRange.Copy
    tbl.ListColumns(O).DataBodyRange.PasteSpecial xlPasteValues
    

End Sub

[Kenneth Hobson]

What is the goal? (1) Copy all from one column to another or (2) copy visible cells (filtered) in one column to another?

Of course normal copy visible cells and paste, pastes with not invisible rows. This is usually a good thing.

Attach a short example file if you like.

[Mpmcderm]

Yes, i just want to copy "old" column to "new" column regardless of filtering. I need the old column to be an exact clone of the new as we are comparing results day by day.