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")