VBA: Cómo insertar filas. El método Insert.

Aprenderemos hoy a emplear la instrucción de VBA que nos permite insertar filas en nuestra hoja de cálculo.
La entrada da solución al problema planteado por un usuario, como continuación de un post anterior (ver):

...como hago si no tengo las filas creadas en blanco, ¿hay alguna función que cree esas filas?. [...]en este caso yo quiero que se me auto complete con el codigo 000025, 000026, 000027 y asi con los restantes codigos...

La idea es que nuestra macro verifique, en primer lugar, donde hay un salto de valores en el rango de trabajo; una vez haya encontrado dicho salto insertaremos tantas filas como se requieran para completar la continuidad; por último completaremos las nuevas filas con los valores correspondientes.
Veamos nuestro listado de valores, fijándonos en los saltos de valor marcados en amarillo:

Por ejemplo, la macro evaluará la fila 5 y 6, donde ha encontrado un salto entre los valores de las celdas (pasa de 3 a 10); lo que implicará que nuestra macro insertará 6 filas nuevas, y cada nueva fila la completará con el valor adecuado, esto es, valores de 4 a 9...
Veamos nuestro código VBA, que se reparte entre dos macros (CompletarFilas() y ultimafila().
Nuestra programación se incluirá el código en un módulo del Editor de VBA (Alt+F11) será:

'declaramos variables públicas que sirvan para
'todo los procesos de este proyecto.
Public UltFila As Long
Public rng As Variant

Sub CompletarFilas()
'www.excelforo.blogspot.com
Dim hoja As Worksheet
Dim celda As Object
Dim destino As Integer
Dim fila1 As Integer, fila2 As Integer

ScreenUpdating = False
Set hoja = Sheets("Hoja1")
'llamamos la macro 'ultimafila para que calcule
'de manera actualizada cuál es dicha fila
ultimafila

For Each celda In hoja.Range(rng)
'con destino calculamos el salto de valores
destino = celda.Offset(1, 0).Value - celda.Value - 1
fila1 = Range(celda.Address).Row + 1
fila2 = Range(celda.Address).Row + destino
'comprobamos si hay salto de valores en el rango
If celda.Offset(1, 0).Value - celda.Value > 1 Then
'si existe, insertamos tantas filas como valores falten por completar
Rows(fila1 & ":" & fila2).Insert Shift:=xlDown
'rellenamos dichas celdas con los valores correspondientes
For i = fila1 To fila2
Cells(i, 1).Value = i - 2
Next
End If
If celda.Offset(1, 0).Row > UltFila Then Exit Sub Else ultimafila

Next celda

ScreenUpdating = True
'liberamos las variables de objeto
Set hoja = Nothing
Set rng = Nothing

End Sub

Sub ultimafila()
Dim hoja As Worksheet

'Encontramos la última fila con valores CADA VEZ
Set hoja = Sheets("Hoja1")
UltFila = hoja.Range("A" & hoja.Rows.Count).End(xlUp).Row
rng = hoja.Range("A2:A" & UltFila).Address

End Sub

Si ejecutamos la macro CompletarFilas comprobaremos cómo responde según lo esperado, esto es, insertando filas y dándoles los valores correctos.