[求助]Excel VBA

我想用vba 跑迴圈，但是執行時，一直告訴我有問題，請問我有哪裡有錯，
小弟平時沒有接觸vba，請見諒
謝謝


Private Sub CommandButton2_Click()
Dim i As Integer
For i = 2 To 3000
If Cells(4, 58).Value > Cells(4, 28).Value Then
Cells(4, 53).Value = i
Else
Cells(4, 45).Value = i
End If
Next i

End Sub