Option Explicit
Dim countValue      As Integer
Dim isRunning       As Boolean

Sub StartCounter()
    
    If Not isRunning Then
        isRunning = True
        countValue = 0
        UpdateCounter
    End If

End Sub

Sub StopCounter()
    isRunning = False
End Sub

Sub UpdateCounter()
    
    If isRunning Then
        Range("A1").Value = countValue    ' Замените "A1" на ячейку, в которую нужно выводить значение
        countValue = countValue + 1
        
        If countValue <= 1000 Then
            Application.OnTime Now + TimeValue("00:00:01"), "UpdateCounter"
        Else
            isRunning = False
        End If
    
    End If

End Sub