VBAでエクセルテーブルの最終行を取得する

エクセルテーブルで最終行を取得する方法がわからなくなるので、自分用にまとめ

こんな感じのテーブルのデータが入っている最終行を取得したい
列数=4,テーブル行数=15,データの入っている最終行=10

一つ目、テーブルの最終行を取得して、その後テーブル内の最終行位置を取得する

test1

Sub test1()

Dim lastRow_Table As Long
Dim lastRow_A As Long

lastRow_Table = Cells(Rows.Count, 1).End(xlUp).Row
lastRow_A = Cells(lastRow_Table, 1).End(xlUp).Row

End Sub

二つ目　listobjectを使ってテーブルのA列からの中を上方向に検索かけて行って、最終行を探す

test2

Sub test2()

Dim lastRow_A As Long

lastRow_A = Cells(1).ListObject.Range.Columns(1).Cells.Find("*", searchdirection:=xlPrevious).Row

End Sub

もしお困りの方がいれば参考になれば幸いです