Slette flere rækker og indsætte rækker under 5 cifret tal

Jeg har blandt andet følgende tal i kolonne A som fortsætter i rigtig mange rækker:

34BC
Side
Valuta
-------
Konto
-------
FÆLLES

1

90
70022

1

90


Jeg skal have slettet de fem øverste rækker ud fra deres værdi og efter det sidste 5 cifret tal skal der indsætte en tom række

Koden jeg har lavet ser således ud:

Dim C As Range

For Each C In ActiveSheet.Columns("A").Cells
                If C.Value = "Side" Then
                C.EntireRow.Delete
       
                ElseIf C.Value = "34BC" Then
                C.EntireRow.Delete
       
                Elseif C.Value = "Valuta" Then
                C.EntireRow.Delete

                ElseIf C.Value = "Konto" Then
                C.EntireRow.Delete
       
                Elseif Left(C.Value, 7) = "-------" Then
                C.EntireRow.Delete
         
                ElseIf Len(C.Value) = 5 Then
                C.Offset(1).EntireRow.Insert
     
End if
    Next C       

Mit problem er at man formentligt ikke kan have så mange elseif i en kode, og derfor sletter den ikke alle linjer og det har jeg forsøgt at afhjælpe ved at splitte det op i 3 subs som gennemløber kolonne A med hver 2 kriteriaer, men uden held, bortset fra når jeg kører hver sub en 2-3 gange så ender det med at alle rækker er fjernet. Probelmet er også at den kun slette den første række med "------" og springer og den der står under "Konto"