want to inerst a row for 5 times

[rvkcools]

i would to insert a row in excel using vba based on a y value

if insert.row = y(any value) then those many rows should insert

 

[Scott Huish]

Sub InsertRows()
Dim y As Long
y = 5
ActiveCell.EntireRow.Resize(y).Insert
End Sub

 

[texasalynn]

Sub InsertInputRows()
     numrows = InputBox("Number of rows")
     ActiveCell.Resize(numrows).EntireRow.Insert
End Sub

 

[kevatarvind]

try below

Sub InsertRows()
On Error GoTo ERR_R
Dim InsR As Long
InsR = Application.InputBox("Enter How Many Row Want To Insert", "Row Insert")
ActiveCell.Offset(1, 0).EntireRow.Resize(InsR).Insert
Exit Sub
ERR_R:
If Err.Number = 13 Then
MsgBox "Please Enter Only Numeric Value", vbCritical
End If
End Sub

 

[Scott Huish]

You can eliminate the whole error capture code, if you specify the type for Application.InputBox

Sub InsertRows()
Dim InsR As Long
InsR = Application.InputBox("Enter How Many Row Want To Insert", "Row Insert", Type:=1)
If InsR > 0 Then ActiveCell.Offset(1).EntireRow.Resize(InsR).Insert
End Sub