Oh my God I saw where my error.
Received is because I've added one more, but should not:
('. UsedRange.Cells.SpecialCells (xlCellTypeVisible). EntireRow.AutoFit)
Many thanks for your help.
I knew I made ​​a mistake somewhere, but thanks to you, everything is fine.
Bow before you learned.