Sub 二行目から最終行まで削除する() '最終行を取得する 最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=4 '2行目から最終行まで削除する Rows("2:" & 最終行).Delete 'Rows("2:4" ).Delete と同じこと End Sub