MaxRow=Cells(Rows.Count, 1).End(xlUp).Row MaxRow=Cells(1, 1).End(xlDown).Row No.8 ワークシートの最終行、最終列を取得する http://www.niji.or.jp/home/toru/notes/8.html