why not:

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