Did you try..

Worksheets("Unp aid").Cells.Cle arContents
Worksheets("Unp aid").Cells(1, 1).Select