Continue numbering in custom list

Question

I have a macro to create a custom list. The list is of the Spanish ordinals in feminine. This is the code:

Sub ListaFemenino ()
Dim arrNumbers As Variant
Dim i As Long
Dim rng As Range
arrNumbers = Split ("Primera Segunda Tercera Cuarta Quinta Sexta Séptima Octava Novena")
Set rng = Selection.Range
For i = 1 To rng.Paragraphs.Count
     With rng.Paragraphs (i) .Range
         .Text = arrNumbers (i - 1) & vbTab & .FormattedText
         .ParagraphFormat.TabHangingIndent 2
     End With
Next i
Exit Sub
End Sub

I need, if possible, that you give me the option, every time I want to apply it in the same document to continue the list or to restart it from 1, Primera in this case.

Actually what I need is for it to offer me the option to continue the numbering because restarting it from 1 is what it does.

Answer 1

Ref: https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/procedures/optional-parameters

' 1 as default value if nothing is given as parameter
Sub ListaFemenino (s as long = 1) 

...
For i = s To rng.Paragraphs.Count
...

... with this you then need to detect from where to continue, how that is to be done is dependent on where you use it.