Automatically Increment numerically ordered rows

[Robin]

I have code that automatically copies a row and then inserts new rows in a
worksheet that are copies of that row, based on a number entered by a user
through an InputBox. The first cell in the row contains a number that needs
to increment as the new rows are inserted. In other words, in the row that
is copied there is a cell with a value of '1' and I need that value to be
incremented for each new row that is inserted. So, if Excel inserts ten
additional rows, that number should be incremented from '1' in the copied row
all the way to '11' in the newly inserted rows.

 

[Jim Thomlinson]

Post your code...

 

[Jacob Skaria]

Suppose lngRow is the row number where a row is to inserted

lngRow = 5
Rows(lngRow).Insert
Rows(lngRow).Range("A1") = Rows(lngrow - 1).Range("A1") + 1

If this post helps click Yes

 

[Robin]

Jim here is the code


Here is the code that copies and inserts the rows:
Sub copyrows()

numrows = InputBox("Number of rows")
'Rows(ActiveCell.Row).Copy ActiveCell.Resize(numrows)
Rows(ActiveCell.Row).Copy
ActiveCell.Resize(numrows).Insert
Application.CutCopyMode = False

End Sub

Thanks!