vba 入力したセルの個数を取得

Columns("AN:AN").Select
    newRowCount = WorksheetFunction.CountA(Selection)

セルa2からa6に入力されているデータの個数をcountaワークシート関数を用いて取得し、変数numに代入する