> 恐らく、ここが違うのだと思いますが、 > ``` > ActiveCell.Offset(行数, 0).Select > ``` はい。 `Offset`はActiveCellからの相対位置を示すだけで、選択範囲は1セルのみです。 複数行を挿入する場合は、`Resize`や`Range`を使用して複数行を選択した後に挿入処理を行ってください。 下記のコードは`Offset`と`Resize`を併用して目的の動作を実現するサンプルです。 ``` Sub 一行おきに二行セルを挿入() Application.ScreenUpdating = False 行数 = 1 Range("C2").Select Do While ActiveCell.Offset(行数).Value <> "" ActiveCell.Offset(行数, 0).Resize(2).Select '1行下のオフセットを起点として、選択範囲を2行分にリサイズして選択 Selection.Insert Shift:=xlDown ActiveCell.Offset(2).Select 'アクティブセルを2行下に移動 Loop Application.ScreenUpdating = True End Sub ``` **参考資料** + [Offset、Resizeを使いこなそう](https://excel-ubara.com/excelvba4/EXCEL210.html)