VBA代码中的溢出错误

下面是我为我正在做的项目的代码，由于某种原因，我一直在线上得到溢出错误：

totalAmountWeight = (ActiveWorkbook.Worksheets("Product Info").Cells(p, 8).Value) / (ActiveWorkbook.Worksheets("Product Info").Cells(p, 7).Value) 

我不知道为什么这个错误发生或如何解决它。

 Private Sub Worksheet_Calculate() Dim target As Range Set target = Range("Q1") Dim p As Long Dim o As Long Dim r As Long Dim Length As Single Dim Width As Single Dim Height As Single Dim totalAmountWeight As Double Dim i As Integer, intValueToFind As Integer Dim sheet As Worksheet Set sheet = ThisWorkbook.Worksheets("Product Info") 'lastrow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).row lastrow = Range("B" & Rows.Count).End(xlUp).Row o = 1 r = 1 If Not Intersect(target, Range("Q1")) Is Nothing Then For p = 2 To lastrow Length = ActiveWorkbook.Worksheets("Product Info").Cells(p, 2).Value Width = ActiveWorkbook.Worksheets("Product Info").Cells(p, 3).Value Height = ActiveWorkbook.Worksheets("Product Info").Cells(p, 4).Value totalAmountWeight = (ActiveWorkbook.Worksheets("Product Info").Cells(p, 8).Value) / (ActiveWorkbook.Worksheets("Product Info").Cells(p, 7).Value) ActiveWorkbook.Worksheets("Backend").Range("O1").Value = totalAmountWeight Call boxes(Length, Width, Height) Call boxesLast3(Length, Width, Height) intValueToFind = 0 For i = 2 To 7 ' Revise the 500 to include all of your values If ActiveWorkbook.Worksheets("Backend").Cells(i, 5).Value = intValueToFind Then 'MsgBox ("Found value on row " & i) ActiveWorkbook.Worksheets("Backend").Cells(i, 7).Value = 600 ActiveWorkbook.Worksheets("Backend").Cells(i, 8).Value = 400 ActiveWorkbook.Worksheets("Backend").Cells(i, 9).Value = 325 Else 'MsgBox ("Value not found in the range!") 'MsgBox ActiveWorkbook.Worksheets("Backend").Cells(i, 5).Value End If Next i Call LWextra(Height, Length, Width) Call HWextra(Height, Length, Width) Call LHextra(Height, Length, Width) Call HLextra(Height, Length, Width) Call WLextra(Height, Length, Width) Call WHextra(Height, Length, Width) newamount = ActiveWorkbook.Worksheets("Backend").Range("Q1").Value dimensions = ActiveWorkbook.Worksheets("Backend").Range("K13").Value ActiveWorkbook.Worksheets("Backend").Cells(o, 26).Value = newamount o = o + 1 ActiveWorkbook.Worksheets("Backend").Cells(r, 27).Value = dimensions r = r + 1 Next p End If End Sub