Foro Excel

¿Alguien sabría dónde está el fallo?
Tengo un listado de conductores que producen en una tabla una progresión aritmética. Este listado se repite un número de veces porque necesito que la tabla alcance un número de valores. Hasta aquí todo perfecto.(Adjunto el archivo e imágenes en pdf para ilustrar el caso, siendo la imagen 1 del pdf la que ilustra esta situación).
Ahora inhabilito a uno de los conductores, digamos que porque le retiran el carnet. Cuando la tabla se encuentra con este conductor se genera un hueco y es el siguiente conductor quien adquiere su número en la progresión aritmética (imagen 2 en el pdf. Hasta aquí también está perfecto).
Pero cuando excel vuelve a encontrarse con este mismo conductor, la progresión aritmética sigue funcionando pero se genera una fila en blanco.
No es un problema de las fórmulas puesto que esta situación se produce con independencia del conductor elegido y de su situación en la tabla.
¿A alguien se le ocurre qué puede pasar?

Después de estudiar intensamente el problema planteado en el correo "las fórmulas fallan" he llegado a la conlusión de que lo que falla realmente es no considerar todas las posibilidades a las que se enfrentan las fórmulas diseñadas.
Por tanto de momento las fórmulas no fallan.

Hola.

Suponiendo que inhabilitas a un conductor suprimiendolo de la columna D con la tecla supr. Prueba esta macro de evento en la hoja Aleatorios:

Código: Seleccionar todo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
Dim ul As Long
ul = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For Each celda In Range("D3:D" & ul)
If celda = "" Then
x = celda.Row
Rows(celda.Row).Delete
ActiveWindow.Panes(1).Activate
    Range("J" & x - 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFill Destination:=Range("J" & x - 1 & ":DV" & ul), Type:=xlFillDefault
    Range("D" & x).Select
    End If
    Next
End Sub

Como te dije antes funciona suprimiendo cualquier numero de la comuna D.

Un saludo.