运行时错误6：溢出Excel 2010

我在Excel中有一个报告，从Access 2010中numRecords = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown)).Count数据。当我运行它时，它在numRecords = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown)).Count 。

 Dim numRecords As Integer Dim row As Integer Dim numListed As Integer Dim col As Integer Dim deliveryMethod As String Dim col2 As Integer Dim numCol As Integer With Worksheets("Raw Export") numRecords = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown)).Count numCol = .Range(.Cells(1, 1), .Cells(1, 3).End(xlToRight)).Count End With 

我试着改变numRecords为Long，但它只是移动了错误。 任何提示将是伟大的。