Thanks man it works!
Cheers
On Tue, Aug 23, 2011 at 10:45 AM, Rajan_Verma wrote:
> *Try this :*
>
> * *
>
> *Sub InsertRow()*
>
> *For i = 13 To 22 Step 4*
>
> *Range("A" & i + 1).Select*
>
> *Range("A" & i + 1).EntireRow.Insert*
>
> *ActiveCell.Value = "Product breakdown"*
>
> *Next*
>
> *End
Dear Umar,
Please use below code to insert row on specific area...
Sub InsertSpecificRows()
Dim InsQuan As Integer
On Error Resume Next
InsQuan = InputBox("Enter number of rows to insert", "Your Call")
If InsQuan <= 0 Then
MsgBox "Invalid number entered", vbCritical, "Stop!"
Exit Sub
End If
A
Try this :
Sub InsertRow()
For i = 13 To 22 Step 4
Range("A" & i + 1).Select
Range("A" & i + 1).EntireRow.Insert
ActiveCell.Value = "Product breakdown"
Next
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Umar Abeer
Sent: Tuesday, August
