How to Add sequential numbers between values, within a Range.

How to add sequential numbers between values, within a range

Requirement:

I have a named Range called "SEQ" in Column C that spans about 4000 rows.
Within this Range are various markers. "x"
New rows are routinely added.
I'm in need of a VBA script that will add a numerical sequence between these markers, in this named Range.

-- from this:

C
x

x

x

x

---to this.
C
x
1
2
3
x
1
x
1
2
3
4
x

Solution:

Code:

Sub test()
    Dim x, i As Long, iCnt As Integer
    
    With [SEQ]
        x = .Value
        For i = 1 To UBound(x, 1) - 1
            If x(i, 1) = "x" Then
                i = i + 1: iCnt = 0
                Do Until x(i, 1) = "x"
                    iCnt = iCnt + 1
                    x(i, 1) = iCnt
                    i = i + 1
                    If i > UBound(x, 1) Then Exit For
                Loop
            End If
            i = i - 1
        Next
        .Value = x
    End With
    
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by KjBox.