[エクセルVBA]範囲内のセルから値の入っている最終行を取得したい

Question

前提・実現したいこと

VBAにて
画像のようなデータがあり
A3～11の範囲内で値の入っている最終行(この場合だと7行目)
のデータが取得したい

VBA始めたばかりで初歩的な質問で申し訳ないのですが
回答いただけると助かります。

該当のソースコード

VBA

試したこと

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

Answer 1

A11にデータが入力されていた場合を考えていませんでした。
A12は必ず空白になりますか？
必ず空白になるなら

lastRow = Cells(12, "A").End(xlUp).Row

で大丈夫だと思うのですが
それと最終行のセルの値を取得したい場合なら.Rowは不要になります。

求めたい範囲はA3～A11で固定でいいでしょうか？

lastRow =  Cells(Rows.Count, "A").End(xlUp).Row

Rows.Count は一番下の行を意味するので
これだとAの列の一番下から上に上がって最初にデータがあるセルの行を取得します。

lastRow = Cells(11, "A").End(xlUp).Row

これならA11から上方向に最初にデータがあるセルの行を取得します。

Comments

[tanuki_poyo]

回答ありがとうございます！
A12が必ず空白になるので
lastRow = Cells(12, "A").End(xlUp).Row
にて対応することが出来ました。
本当にありがとうございます！！

Rows.Countが一番下の行を意味することが知れてよかったです。
今後にも活かしていけそうです！