Endzeile in Schleife erhöhen

Sub Zeilen_einfügen()
      Dim iStartzeile%, lEndzeile&, lZeilenzähler&
      Dim iQuellspalte%, iZielspalte%
      Dim sZellinhalt$
      iStartzeile = 2
      lEndzeile = Cells(65536, 5).End(xlUp).Row
      iQuellspalte = 5
      iZielspalte = 4
      Application.ScreenUpdating = False
      
      For lZeilenzähler = iStartzeile To lEndzeile
            If lZeilenzähler > lEndzeile Then Exit Sub
            If Not IsEmpty(Cells(lZeilenzähler, iQuellspalte)) Then
                  sZellinhalt = Cells(lZeilenzähler, iQuellspalte)
                  Rows(lZeilenzähler).EntireRow.Copy
                  Rows(lZeilenzähler + 1).Select
                  Selection.Insert Shift:=xlDown
                  Application.CutCopyMode = False
                  Cells(lZeilenzähler, iQuellspalte).ClearContents
                  Cells(lZeilenzähler + 1, iQuellspalte).ClearContents
                  Cells(lZeilenzähler + 1, iZielspalte) = sZellinhalt
                  lZeilenzähler = lZeilenzähler + 1
                  lEndzeile = lEndzeile + 1
            End If
      Next lZeilenzähler
           
      Application.ScreenUpdating = True
End Sub