Excle auto-increment sequence number

Press Alt + F11 to enterCodeEdit
Copy the following code to the editing window:
Private sub worksheet_change (byval target as range) 'worksheet change event causes the followingProgram
Application. enableevents = false' the event is forbidden.
X0 = activecell. row' X0 = number of active cells
If x0> 1 then' x0 is above 2
Cells (x0, 1) = cells (x0-1, 1) + 1' x0 rows = X0-1 rows + 1
Else: cells (x0, 1) = 1' when x0 is 1 = 1
End if 'end condition judgment
Do while cells (x0 + 1, 1) <> "'x0 + 1 rows are not empty.
Cells (x0 + 1, 1) = cells (x0, 1) + 1' cells x0 + 1 rows = x0 rows + 1
X0 = x0 + 1' x0 incremental execution
Loop 'returns the while statement
Application. enableevents = true' event triggered
End sub 'End the program