how to copy the visible cells of a table to another tab?

[elsg]

I need to copy the visible cells of a table to another tab?

Sub CopyTableFiltered()    Dim DtFirst As Long, DtLast As Long
    DtInic = Range("J1").Value
    DtFinal = Range("K1").Value
    ActiveWorkbook.Sheets("Orig").ListObjects("Tabela1").Range.AutoFilter field:=1, Criteria1:=">=" & DtFirst, _
    Operator:=xlAnd, _
    Criteria2:="<=" & DtLast
    'I need copy visible data in table to another worksheet ("Dest").
End Sub

 

[elsg]

Someone can help me?

thank you!!

 

[elsg]

Cross-Post
how to copy the visible cells of a table to another tab?

 

[elsg]

solved by p45cal in:
[SOLVED] how to copy the visible cells of a table to another tab?

thanks