コピー＆ペーストする変数の行

Question

Iデータの既存の線の間の行数を挿入するマクロを持っている：

私は実際にそれを行うために必要なもの

Sub test() 

Dim j As Long, r As Range 
j = InputBox("No. of rows to be inserted?") 
Set r = Range("A3") 
Do 
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert 

Set r = Cells(r.Row + j + 1, 1) 

If r.Offset(1, 0) = "" Then Exit Do 
Loop 

End Sub 

回のライン「X」番号の挿入コピーであります空白を挿入しないでください。誰も助けることができますか？私はこのことに関する知識が不足しているため、事前に謝罪します！

Before After - AMENDED

Answer 1

前者はあなたが例のタイプでは、ユーザーの入力データ型（強制することができますので、私はApplication.InputBox()メソッドを使用して代わりのVBA InputBox() 1よこの

Option Explicit 

Sub test() 
    Dim j As Long 
    Dim rng As Range, cell As Range 
    Dim i As Long 

    j = Application.InputBox("No. of rows to be inserted?", Type:=1) 
    With Worksheets("REFS") '<-_| change "REFS" to your actual worksheet name 
     i = 1 
     With .Range("D2", .Cells(.Rows.Count, "D").End(xlUp)) 
      Do While i <= .Rows.Count 
       With .Cells(i).EntireRow 
        .Copy 
        .Offset(1).Resize(j).Insert Shift:=xlDown 
        Application.CutCopyMode = False 
       End With 
       i = i + j + 1 
      Loop 
     End With 
    End With 
End Sub 

を試してみてください：= 1つの力を数値入力