ExcelVBA データ入力されている最終セルの行を取得

A1列のデータ最終行の例

Cells(Rows.Count, Range(”A1").Row).End(xlUp).Row