Sequential Numbering

[asjmoron]

Hey guys.

I am trying to write some code to do three things...

1. add a new row at the end of bottom of the sheet
2. copy all formulae with it
3. in column A, add Sequential Numbering

I have sussed out the first two but the last one is killing me!
to make it a tad more difficult for myself, the rows start at A12.

1 and 2 is covered by the below;

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select​

​

Rows(Selection.Row - 1).Copy​

Rows(Selection.Row).Insert Shift:=xlDown

​

Any help would be amazing.

Thanks,

 

[mrshl9898]

How's this?

Sub addrow()

Dim myval As Long
Dim lastrow As Long
Dim sht As Worksheet


Set sht = ActiveSheet
lastrow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row


myval = Cells(lastrow, 1).Value
myval = myval + 1
Rows(lastrow).Copy Rows(lastrow + 1)
Cells(lastrow + 1, 1).Value = myval


End Sub

 

[asjmoron]

You sir, deserve a Knighthood or at least a pint!

Thanks