Duda utilizando on error GoTo linea

[camagudelore]

Buenas tardes, compañeros tengo una duda, respecto al uso del Goo

En primer lugar necesito utilizarlo dentro de un ciclo For, y en el primer error este cumple su fincion, pero cuadno sale un segundo error no me funciona.

ejemplificando mi algoritmo cree este mini codigo que me solucionaria el mio especificamente.

Sub hola()

Dim i As Integer
i = 1
For j = 1 To 10
Application.DisplayAlerts = False
On Error GoTo 1
i = i * j * 10
Cells(j, 1) = i
1:
Next j
End Sub

Este algoritmo arroja un error cuando crece mucho la variable i, porque se declaro como un integer.

Pd. el GoTo resume Next tampoco me funcionó. la salida de esa corrida deberia ser una lista 10, 200, 600 y como sale error en el resto deberia solo imprimir esos datos, no deberia sacar mas valores.

Agradezco una prontea respuesta.