In sintesi qual'è il problema, devi inserire un tot di righe vuote tra una data e l'altra?

edit. Se è così risolvi con una macro

codice:
Sub inserisci()
Dim i As Integer
Dim indice, ultimaRiga As Long

ultimaRiga = Cells(Rows.Count, "A").End(xlUp).Row
    For indice = ultimaRiga To 2 Step -1
        For i = 1 To 5
            Rows(indice).Insert
        Next i
    Next indice

End Sub
Il mio esempio inserirà 5 righe vuote tra una riga e l'altra. Fai una prova su una copia del tuo file a scanso di equivoci.