Hi
Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers +
xlTextValues).Select

Will select cells with text or numbers. If you want formulas change to
xlTypeFormulas in specialcells. If you want constants and formulas, you
will have to do a set statement

Set ConstCells = Range("A:A").SpecialCells(xlCellTypeConstants,
xlNumbers + xlTextValues)

and same for FormulaCells. Then union the two ranges and select that.

regards
Paul