Autonumbering rows in Excel by VBA (1 Viewer)

Good Evening for every body in this forum
I cam to day with a code on which i worked days to make it the most perfect and overcum the errors that appeared with trial
it's an auto-numbering VBA code used to insert autonumbers "Serially" while you write data in the adjacent colums. this can be updated and used among othe worksheets in "Invoice" or sales or any coding system,,,
deleting one row or multiple rows, re auto-numbers the whole set,,,
try it... feed back is neccessary...
thanks

It works well, but a codeless version could use a formula too.

=IF(B6<>"",C5+1,"")

But it is a good example you have there. It could be very useful.

Sorry but what is the point of this??? Where would this actually be useful?

Also when you delete data instead of rows the autonumbering stops where you deleted the data even if data exists above it.