excel宏 VBA代码，这一步有啥问题啊

这是具体代码

Sub 插入()
Dim i As Long, j As Long, cont As Long
For i = 2 To 1111111
If Range("E" & i).Value = "" Then Exit Sub
cont = Val(Range("E" & i).Value)
If cont >= 2 Then
Rows(i + 1 & ":" & i + cont - 1).Insert
Range("E" & i & ": E " & i + cont - 1).FillDown
End If
i = i + cont - 1
Next
End Sub