vb溢出，用的excel,共13行代码，能算出结果，但是却溢出，想请教下

题目：把一列大于60的数字写在（c.1)上
代码Private Sub CommandButton1_Click()
Dim i As Integer
Dim temp As Integer
Dim count As Integer
count = 0
i = 1
While Worksheets("sheet1").Cells(i, 1) <> "end"
temp = Worksheets("sheet1").Cells(i, 1)
If temp >= 60 Then
count = count + 1
Worksheets("sheet1").Cells(1, 3) = count
End If
i = i + 1
Wend
End Sub
运行时说“运行时错误“6,溢出”
调试时说i=i+1错误
看了半天没弄懂，想请教下大家