Dùng Inputbox để chèn số dòng tuỳ ý, bạn chỉ cần đặt con trỏ vào dòng ở ô bất kì mà mình muốn chèn dòng lên phía trên rồi thực hiện lệnh này 
Sub InsertRows()
Dim rw As Integer
rw = Application.InputBox("Insert Number of Rows:", "Insert Rows", , , , , , 1)
With Range(ActiveCell, ActiveCell.Offset(rw - 1, 0))
.EntireRow.Insert Shift:=xlUp
End With
End Sub