Sub 二行目_タイトル行を除く_から最終行までコピーする() '最終行を取得する 最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=6 '2行目から最終行までコピーする Rows("2:" & 最終行).Copy 'Rows("2:6" ).Copy と同じこと End Sub