Calcular el tiempo de cada fila excel

Quiero calcular los tiempos de cada Fila en la Columna J y, es decir =J2-I2, obtuve ayuda antes y escribí este código VBA

Private Sub CommandButton1_Click()
For i = 2 To 1647 / Range("J" & i) - Range("I" & i)
Next i
End Sub

y quiero que publique el cálculo en cada fila de la columna K comenzando con la fila dos, el cálculo. Pero recibo el method range of object _worksheet failederror cada vez que hago clic en el botón para ejecutar el comando. ¿Cómo puedo hacer que este error se detenga y hacer que esto funcione?

Solución del problema

Private Sub CommandButton1_Click()
For i = 2 To 1647 Step 1
 Range("K" & i).Value = Range("J" & i).Value - Range("I" & i).Value
Next i
End Sub

Para... Siguiente declaración