Runtime error 6 - Overflow

Hej Computerworld
Jeg har følgende kode hvor jeg får en fejl med; Runtime error 6  - Overflow
når jeg kører koden. Fejlen opstår når jeg skal foretager beregningen i koden. Jeg har søgt på nettet og det eneste jeg kan komme frem til er at jeg har erklæret mine variable forkert. Jeg har prøvet med long selvom det ikke giver mening eftersom der kun er 500 rækker i mit dokument.
Jeg har ligeledes prøvet med variant af Cells(), da cellerne som udregnes bliver udskrevet som kommatal. Dog virker intet.

Sub testmakroinput()
Dim antal, stepsize, term As Integer

    antal = InputBox("Angiv antallet af priser i perioden")
    If antal = 6 Then
    Range("A1").Select
    Sheets("Marketdata").Select
    Columns("Z:AE").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("G1").Select
    ActiveSheet.Paste
    Range("G1").Select
    LR = ActiveWorkbook.Worksheets("Sheet1").Range("A" &  Rows.Count).End(xlUp).Row
    i = 0
    stepsize = 1
    ActiveWorkbook.Worksheets("Sheet1").Range("M1") = "Prisfald fra forgående periode"
    For term = 1 To LR Step stepsize
    ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 13).Value = (ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 11) - ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 12)) / ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 11)
    i = i + 1
    Next term
    Columns("N:N").Select
    Selection.NumberFormat = "0.00%"
   
    ElseIf antal = 7 Then
    Range("A1").Select
    Sheets("Marketdata").Select
    Columns("Z:AF").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("G1").Select
    ActiveSheet.Paste
    Range("G1").Select
    LR = ActiveWorkbook.Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    i = 0
    stepsize = 1
    ActiveWorkbook.Worksheets("Sheet1").Range("N1") = "Prisfald fra forgående periode"
    For term = 1 To LR Step stepsize
    ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 14).Value = (ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 12) - ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 13)) / ActiveWorkbook.Worksheets("Sheet1").Cells(2 + i, 12)
    i = i + 1
    Next term
    Columns("N:N").Select
    Selection.NumberFormat = "0.00%"
   
    Else
    MsgBox "Enter a valid expression"
    Do
    antal = InputBox("Prøv at indtaste et antal igen")
    Loop While (antal <> 6 And 7)
    End If
   
   
   
End Sub