puede cerrarse el hilo, esta solucionado.

Con excel, podría ejecutarse esta macro:

Sub elimina_filas_inutiles()
Dim primera As Long
Dim segunda As Long
Dim ultima As Long
Dim i As Long
primera = InputBox("Indique la primera fila válida", , 4)
segunda = InputBox("Indique la segunda fila válida", , 11)
ultima = ActiveCell.SpecialCells(xlLastCell).Row
For i = ultima To primera Step -1
If (i Mod (segunda - primera)) - primera <> 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub


Suprime las filas sobrantes y junta las filas restantes, todo de golpe.
Gracias Novlucker por orientarme