copy special cells with values and formats

[rodich]

Hi all,
I have a pivot table with hidden columns.
Without vba I use:
Ctrl+G
button Special
Copy
Paste in Range("AA1")
and the result is perfect = I copy values and format succesfully

Now I'm trying to copy only visible cells with VBA
I use:


Sheets("North_East").UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Range("AA1").Select
Selection.Paste


so I paste only values
but my goal is cpoing values and formats

Could you help me?

[snb]

why not:


Sheets("North_East").UsedRange.SpecialCells(12).Copy Range("AA1")