VBA セル範囲から空ではないセルの数を取得したい

Question

VBAで、B列の空ではないセルの数を取得するにはどうしたら良いでしょうか？

画像の場合、２を取得したいです。

Range(B:B)からどうすればいいのかがわからないです、、、

これではうまくいかないようです、、、

厳密には3番目のシートのB列のB2からが対象です。

Answer 1

ワークシート関数を使うのが手っ取り早いかもしれません。

MsgBox Application.WorksheetFunction.CountA(Range("B:B"))

または省略して

MsgBox Application.CountA(Range("B:B"))

Answer 2

Comments

[jawa]

横から失礼しますm(__)m
質問に対する回答になっていないように見えますが、どういった意図でしょうか？

画像でのコード提示のみで解説もないというのは不親切に思います。
画像でのコード提示という部分では質問者さんも同様ですが。

[Y.H.]

この回答(Range().End(xlDown)メソッド)では「空ではないセルの数」ではなく「指定範囲での最終行」だと思います。