运行时显示错误六 溢出 这该怎么办，急求各位老哥帮助

Sub MyDeleteRow()
Dim R As Integer
Dim i As Integer
With Sheets("sheet3")
R = .[A425060！].End(xlUp).Row
For i = R To 1 Step -1
If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then
.Rows(i).Delete
End If
Next
End With
End Sub
代码时上面的，行数少一些的时候可以正常运行，但是把所有的数据都计算了就崩了。
恳求各位老哥帮忙看看看，这个怎么办，哭了