'-------------------------

'最下Celを取得

  最下Row = Cells(1, 1).SpecialCells(xlLastCell).Row

  最右Col = Cells(1, 1).SpecialCells(xlLastCell).Column

'-------------------------

'最下Celを取得

  最下Row = Range("A65536").End(xlUp).Row

  最右Col = Range("IV1").End(xlToLeft).Column

'-------------------------

’Ctrl+↓で移動

　直下行 = Cells(1, 1).End(xlDown).Row