恐らく、ここが違うのだと思いますが、
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
参考資料