アクティブセル領域とは空白行と空白列で囲まれたセル範囲のことです データが入力された最終行を取得する際に 必ず入力される列があれば 入力された最終行を取得することが可能ですが 必須となる列が存在しない場合には アクティブセル領域から最終行を取得できます 入力がない列がある場合も考えられるので タイトル行がないような場合には向いてないかも知れません
i_row = Cells(1, 1).CurrentRegion.Rows.Count