引数を指定しない場合【行数 = 列数】の場合は挿入後、下方向にシフトします。 【行数 < 列数】の場合は挿入後、右方向にシフトし、【行数 > 列数】の場合は挿入後、下方向にシフトします。 セルの行または列を選択範囲とする場合、行の場合は挿入後、下方向にシフトし、列の場合は挿入後、右方向にシフトします。 'アクティブなシートのセルB1~D3の範囲の挿入(行数=列数なので下方向にシフト) Sub InsertCell() Range(Cells(1,2),Cells(3,4)).Insert End Sub 'アクティブなシートのセルB1~D3の範囲の挿入(行数>列数なので右方向にシフト) Sub InsertCell() Range("B1:D4").Insert End Sub 'Sheet1のセルB1~D3の範囲の挿入(行数<列数なので下方向にシフト) Sub InsertCell()