Try this. You may have to adjust the SpecialCells line to get what yo
want (record an Edit/Goto macro).

'-------------------------------------------------
Sub SelectSpecial()
lastcol = ActiveSheet.Cells.Find(what:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
lastrow = ActiveSheet.Cells.Find(what:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ActiveSheet.Range(Cells(1, lastcol), Cells(lastrow, lastcol)) _
.SpecialCells(xlCellTypeConstants, 1).Select
End Sub
'-------------------------------------------------

--
Message posted from http://www.ExcelForum.com