Ini link cara menampilkan tab menu developer
[ Ссылка ]

dan ini subcript-nya

Sub test()
Dim j As Long, r As Range
j = InputBox("Ketik jumlah baris yang disisipkan")
Set r = Range("A50")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 50, 1)
MsgBox r.Address
If r.Offset(1, 0) = "" Then Exit Do
Loop
End Sub

свернуть