セル範囲の最終行・列を取得する

最終行を取得する

RANGE.End(xlUp).Row    '上方向
RANGE.End(xlDown).Row  '下方向

最終列を取得する

RANGE.End(xlToLeft).Column   '左方向
RANGE.End(xlToRight).Column  '右後方