Hallo Hajo,
sorry habe das lange Wochenemde für einen Kurzurlaub genutzt, deshalb kommt meine Antwort etwas verspätet.
Hier nochmal kurz das Problem: Zeile soll bei "x" rauskopiert und gelöscht werden.
Ansatz:
Kuendigung = .Cells(z, 14)

#If Kuendigung = x Then

Rows(z).Copy
letzte = WorksheetFunction.Max(2, Sheets("GekuendigteVertraege").Range("A65535").End(xlUp).Row + 1)
Sheets("GekuendigteVertraege").Range("A" & letzte).Paste
Rows(z).Delete

#End If
Volker meinte der Fehler liegt vielleicht darin, dass das es erst aktiviert werden müsste (glaubte es aber nicht) und ich habs einfach mal ausprobiert.
Erkennst du auf anhieb den Fehler?
Viele Grüße
Sammy