Incrémentation d'une formule VBA

Bonjour à tous,

Tout d'abord je vous souhaite une merveilleuse année.

Je viens vers vous car j'ai créé une macro pour insérer une ligne, je reste un débutant.

Le code est le suivant :

Sub Ajout_ligne()
Dim CurrentSheet As Object

For Each CurrentSheet In ActiveWindow.SelectedSheets

Rows("24:24").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B24:C24").Select
Selection.Merge

Next CurrentSheet

ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("D24").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("B25:D25").Select

End Sub

Mais j'aimerais que cette macro s'incrémente. Pour que les lignes se créer à la suite des autres, et non pas toujours à la ligne 24.

De même pour les formules ajoutées il faudrait que le N° de l'actions augmente de 1 à chaque nouvelle ligne.

Je vous joint le fichier pour que vous puissiez visualiser la demande..

Cordialement.