Anwendungs- oder objektdefinierter Fehler

Sub TEST()
Dim Intervall(1 To 36, 6 To 7)
Dim j As Integer
For i = 1 To 36
j = 1
Do While Worksheets("Tabelle1").Cells(j + 1, 1)  ""
Intervall(i, 6) = (Worksheets("Tabelle1").Cells(i + 1, 7) - Worksheets("Tabelle1"). _
Cells(i + 1, 18))
Intervall(i, 6) = Intervall(i, 6) + 1
j = j + 1
Loop
Next i
For i = 1 To 36
Sheets("Result").Cells(i + 2, 6) = Intervall(i, 6)
Next i
End Sub