VBA - Insert next sequential number from series in a column

[pingman3]

Hello. Looking to have VBA that will insert the next sequential number. I have 500 rows of data starting in row 4; column B has 'ID' numbers - say, 1-500. I would like to be able to insert a row anywhere within the range and upon macro execution, the active row - column B, the next available number populates. So if 1-500 are used, 501 would be next up. If however the sequence had a gap, for example, 297, 298, 300, 301, 302........<299> would populate in the active row - column B.

Any help would be appreciated.

Thanks,
Ryan

[karedog]

First, you must insert the blank rows manually, then run this sub :

Please Login or Register  to view this content.

[sktneer]

You may try something like this...

Please Login or Register  to view this content.