Random walk

Sub test()

Dim i As Double
Dim n As Double
Dim s As Sheet1
Dim start As Integer

start = 0
n = 100
Set s = Sheet1
Randomize

For i = 1 To n
    s.Cells(i, 1) = Rnd
   
    If s.Cells(i, 1) > 0.5 Then
   
        s.Cells(i, 2) = 1
       
    Else
        s.Cells(i, 2) = -1
       
    End If

Next i

s.Range("C1") = start

For i = 1 To n

    start = start + s.Cells(i + 1, 2)
    s.Cells(i + 1, 3) = start
   
Next i

End Sub

invalid-file