VBA整数溢出70,000

Question

我有一个包含70,000行数据的工作表和一个计算总行数的简单宏：

Dim LastRow as Integer    
LastRow = SourceSheet.Cells.Find(what:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row
MsgBox (LastRow)

这会返回溢出错误。将LastRow更改为Long将返回正确的值70,000。

根据Microsoft's website，VBA整数应该能够保持-2,147,483,648和2,147,483,647之间的值。我的输出完全在这个范围内，为什么会失败？

谢谢！