アクティブセル領域とは空白行と空白列で囲まれたセル範囲のことです
データが入力された最終行を取得する際に、必ず入力される列があれば入力された最終行を取得することが可能ですが、必須となる列が存在しない場合にはアクティブセル領域から最終行を取得する方法もあります

セル範囲に含まれる基準となるセルを指定する必要があり、指定したセルの縦横斜めで隣接するセルに必ず値が入力されているセルが必要で、規則的に不明確なため実用的ではないかも知れません

Dim o_sheet As WorkSheet
Dim i_row As Long

Set o_sheet = ThisWorkBook.WorkSheets(1)
i_row = o_sheet.Cells(1, 1).CurrentRegion.Rows.Count

Set o_sheet = Nothing