Sub Sample4() 'A列の最終行「Range("A" & Rows.Count)」から 'Shiftキー+↑キーの操作「End(xlUp)」をして 'そのセルの1つ下「Offset(1)」を選択「Select」します。 Range("A" & Rows.Count).End(xlUp).Offset(1).Select End Sub