Runtime Error 6 : Overflow?

[schulzy175]

This code starts to find values and assigns them to Excel, but then gives a runtime error about overflow right after i
click execute?

Dim cr As Integer
Dim Time As Integer
Dim Num As Integer


Private Sub Start_Click()
    
    Time = 3120
    
    
    
    cr = 3
    
    Do
    
For Num = 1 To 59
    
    If Cells(cr, 2) = Num Then
    
    Cells(Num, 9) = Cells(Num, 9) + 1
    
    cr = cr + 2
    
    Time = Time - 1
    
    Else
    
    Time = Time - 1
    
    cr = cr + 2
    
    End If
    
    Time = Time - 1
    
Next Num
    
    Loop Until Time = 0
    


End Sub

[schulzy175]

Edit: Solved!