Zeile einfügen unten, basierend auf dem Wert Zelle excel-Makros

Hallo ich bin ein Total newbee, aber begierig zu lernen. Gefunden habe ich ein makro in diesem forum an Einfügen kopierte Zeile basierend auf dem Wert der Zelle. Das folgende makro einfügen einer leeren Zeile vor jede Zeile, die einen Wert von "0" in Spalte E, und es fast hilft mir. Statt der leeren Zeile wird oberhalb der Zeile, die ich brauche, es erscheinen unten statt.Kann jemand mir helfen?.
Der makro-code ist:

Sub BlankLine()

    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long

        Col = "E"
        StartRow = 1
        BlankRows = 1

            LastRow = Cells(Rows.Count, Col).End(xlUp).Row

            Application.ScreenUpdating = False

            With ActiveSheet
For R = LastRow To StartRow + 1 Step -1
If .Cells(R, Col) = "0" Then
.Cells(R, Col).EntireRow.Insert Shift:=xlDown
End If
Next R
End With
Application.ScreenUpdating = True

End Sub