Excel - Copiar e Insertar filas automáticamente con un condicional

Sub Insertar_Fila()

    Dim Fila As Long

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Application.EnableEvents = False

    ActiveSheet.DisplayPageBreaks = False

    Fila = 2

    While Cells(Fila, "A") <> ""

        If Cells(Fila, "E") = 7000 Then             ' --- Busca la línea del 7000

            If Cells(Fila + 1, "E") <> 0 Then       ' --- Verifica que la siguiente linea no tiene 0

                Call Insertar(Fila + 1, Fila + 2)   ' --- Inserta la linea

            End If

        End If

        Fila = Fila + 1

    Wend

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

    Application.EnableEvents = True

    ActiveSheet.DisplayPageBreaks = True

    Application.CutCopyMode = False

End Sub

Sub Insertar(F1, F2)

    Rows(F1 & ":" & F1).Select

    Selection.Insert Shift:=xlDown

    Range("A" & F2 & ":F" & F2 & "").Select

    Selection.Copy

    Range("A" & F1).Select

    ActiveSheet.Paste

    Range("E" & F1).Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "0"

    Range("E" & F2).Select

End Sub