I need to copy the visible cells of a table to another tab?
Code:
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