┌───┬───┐─┐
│◎■①│      │  │■◎①②③＝データのあるところ
│■■■│      │  │④＝過去にデータがあったが削除したところ
│②■■│      │  │
├───┘      │  │◎において
│        ┌──┤  │  「ctrl」＋「→」  ⇒  ①  …(Ａ)
│        │■■│  │  「ctrl」＋「↓」  ⇒  ②  …(Ｂ)
│        │■③│  │  「ctrl」＋「End」 ⇒  ④  …(Ｃ)
└────┴──┘  │
│                ④│＃ファイルを読み込み直すと④が③に再計算される(*1)
└─────────┘

(Ａ)起点セル.End(xlToRight).Select    ←→起点セル.End(xlToLeft).Select
(Ｂ)起点セル.End(xlDown).Select       ←→起点セル.End(xlUp).Select
(Ｃ)起点セル.SpecialCells(xlLastCell) ←→Range("A1").Select

*1：④を③に再計算させる手段としては…
    以下のように、値を使用して再計算させればよい。
┌──────────────────────────────────────┐
│変数 = シート.UsedRange.Row   ' 範囲見直しのためのダミー処理(範囲上端を取得)│
│変数 = シート.起点セル.SpecialCells(xlLastCell).Row                         │
└──────────────────────────────────────┘