Das wäre dann so gelöst:

Sub ZeileDelVeränderungen()

    Dim y As Long
   
    y = 11
    If Cells(y, 5).Value & Cells(y, 7).Value = "" Then
        Rows(y).Delete
    End If

End Sub

Den Wert für y kannst du wieder über deine Funktion zuweisen....

Was meint du mit y erhöhen? Kling nach einer Schleife, welcher Bereich soll denn überprüft werden? Und sollen darin wirklich nur Zeilen gelöscht werden bei denen

y,5 und y,7 leer sind?

"Position" sucht im gesamten benutztem Bereich der Tabelle "Übersicht" nach dem Eintrag "Veränderungen Konto im VZ"?

Oder steht der in einer festgelegten Spalte?

Wenn y den Anfang des zu durchsuchenden Bereiches makiert und alle auf diesen Eintrag folgenden Zeilen bei denen y+x,5 und y+x,7 leer sind gelöscht werden sollen, könnte das so aussehen:

Sub ZeileDelVeränderungen()

    Dim y&, R&, C%, LR&, LC%, TV&, AV, E1&, E2&, rng As Range
    
    'letzte benutzte Zeile und Spalte finden
        E1 = Rows.Count
        E2 = Columns.Count
        For C = 1 To E2
            TV = Cells(E1, C).End(xlUp).Row
            If TV > LR Then LR = TV
        Next
        For R = 1 To LR
            TV = Cells(R, E2).End(xlToLeft).Column
            If TV > LC Then LC = TV
        Next
        Set rng = Range(Cells(1, 1), Cells(LR, LC))
        AV = rng.Value
        
    'Bereich suchen
        For C = 1 To LC
            For R = 1 To LR
                If AV(R, C) = "Veränderungen Konto im VZ" Then
                    y = R + 1
                    Exit For
                End If
            Next
        Next
        If y = 0 Then Exit Sub
        
    'Zeilen löschen
        For R = y To LR
            If AV(R, 5) & AV(R, 7) = "" Then
                Rows(y).Delete
            End If
        Next
        
End Sub