Sub test()
Dim tmp As Range
Cells.SpecialCells(xlCellTypeConstants).Select
For Each cel In Selection
Set tmp = cel
Next
tmp.Select
End Sub

のようにしています。数式の場合は，SpecialCells(xlCellTypeFormulas)を使用しま
す。両方の場合は，２回チェックするだけです。

hiroyuki-ooharaさんのようにセルにデ−タがあるかないかを調べるときは，
isempty(cells(a,b)) でチェックしています。

方法２

ちょっと、質問の内容を誤解しているかもしれませんが
WorkSHeetオブジェクトのUsedRangeプロパティでは問題は解決しないんでしょうか？
ちなみにUsedRangeプロパティは、指定したシートで使用されているセル範囲を返し
てくれます。
それとも、列毎の終端を取りたいということでしょうか？