Problem when copy filtered table in Excel 2007 using VBA

Hello Guys, I am trying to copy and paste a filtered table (named table1) which is in the sheet DATA through a macro, but , when I execute the macro, there are rows that aren't copy.

I copy the filtered table using the VBA code:

Worksheets("DATA").Select
Worksheets("DATA").ListObjects("table1").Range.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range("I3").PasteSpecial xlPasteFormats
Range("I3").PasteSpecial xlValues

An example workbook is attached.

Someone can help me, please, any help is welcome, thanks in advance.