VBA: rydde op i udtræk

Jeg kopierer fra en hjemmeside med login (= vil ikke overveje at tage på anden vis)

Data ser sådan ud linje for linje:
Hold
Sager
Antal sager
Overskrift
sag1
sag2
sag3
etc
Hold
Sager
Antal sager
Overskrift
sag1
sag2
sag3
etc

og gentager sig 8-10 gange på denne måde.
Jeg vil gerne rydde op således at overskrift optræder en gang
Hold står på hver linje (sag1, sag2 etc)
Antal slettes

Jeg vil derfor lave et loop, og starte nedefra for ikke at gå i stå når jeg sletter en hel linje.
Jeg har følgende:
' clean up data
    intLastLine = Range("A1").CurrentRegion.Rows.Count
        For intL = intLastLine To 1 Step -1
        If Cells(intL, 1).Interior.ColorIndex = 14 Then
        Rows(intL).EntireRow.Delete
        ElseIf IsEmpty(Cells(intL, 2)) Then
        Rows(intL).EntireRow.Delete
        End If
    Next intL

Det I ser er at colorIndex er der hvor overskriften slettes
Hvis kolonne 2 er tom er der hvor hold og sager vælges
Problemet er ikke at rydde op, men at flytte/kopiere navn ud på de andre linjer - specielt når man starter nedefra.
Hvis jeg startede oppefra ville jeg sige:
farve = slet
hold navn sæt i variabel
isnumeric = slet
andet = sæt holdnavn på bagerst
Måske som en select case tanke

Men hvordan hulen gør jeg når det er nedefra?