Duda utilizando on error GoTo linea

[pkj]

No te entiendo.
El primer error lo da cuando la cuenta es 10, 200, 6000.
Si lo que quieres es salir al primer error ¿por que no lo mandas fuera del bucle cuando sucede??
Si te quedas dentro solo conseguiras mas errores.

PD:
Pero para gustos los colores...
Si te hace ilusion hacer todo el ciclo o simplemente por si a alguien le interesa, este modo hace todo el bucle sin mostrar errores.

Código vb:

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

Incluso podemos sacar el error del bucle para que alguno lo tenga mas claro:

Código vb:

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

Saludos