Store visble databodyrange in filtered table into an array

Hi Yasser old friend,

Where do you want to store the data?

Sub CopyTable(): Dim UR As Range, WT
Set UR = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
            UR.Copy Cells(30, 10)
    WT = Cells(30, 10).CurrentRegion
    Cells(30, 20).Resize(UBound(WT, 1), UBound(WT, 2)) = WT
End Sub