配列数式を使用します。

=IF(MAX(IF(A2:A65536<>"",ROW(A2:A65536)))=0,COUNTA(A1),
                     MAX(IF(A2:A65536<>"",ROW(A2:A65536))))

　　と入力後、Shft + Ctrl + Enterで入力します。
　　1行目は項目名の場合のデータ数を求める場合であれば
　　以下の配列数式でも可能です。

=MAX(IF(A2:A65536<>"",ROW(A2:A65536)))

　　配列数式は再計算に結構な時間を要します。
　データの入力・編集を頻繁に行うワークシートにこれを用いるのは、
　マシンのスペックによっては時間を要することが考えられます。