以下のコードを変更して2行を追加するにはどうすればよいですか？

Question

2行を追加するには、以下のコードをどのように変更しますか？

Sub AddRows() 
    Dim MyRange As Range 
    Dim iCounter As Long 
    Dim LastRow As Long 

    With ThisWorkbook.Worksheets("Numbers") 
     LastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
     Set MyRange = Range("A2:A" & LastRow) 

     For iCounter = MyRange.Rows.Count To 2 Step -1 

      'Insert blank row, 
      MyRange.Rows(iCounter).EntireRow.Insert 

     Next iCounter 
    End With 
End Sub 

Answer 1

あなたはこのからの迅速な変更することができ、（ゲイリーさんのコメントを参照してください） 2つの行を挿入しに意図されている場合：

MyRange.Rows(iCounter).EntireRow.Insert 

MyRange.Rows(iCounter).Resize(2,1).EntireRow.Insert