Automatische Nummerierung VBA

ich hoffe Ihr könnt mir helfen.

ab Spalte A 5 soll in einer Excel Liste immer automatisch aufsteigend nummeriert werden.(1,2,3 usw.) Es soll aber nur da nummeriert werden wo in Spalte B ein Eintrag ist. Das ganze muss über VBA gelöst werden, da Einträge einkopiert werden und somit die Formeln im Blatt verloren gehen könnten(überschrieben werden könnten).
Wird also beispielsweise in Spalte B 17 ein Wert einkopiert, so soll geprüft werden ob ab A5 eine Nummerierung bis A 17 vorhanden ist, wenn nicht soll sofort eine Nummerierung von A5 bis A 17 erfolgen.

Vielen Dank für Eure Hilfe,

Gruß

Simone