VB Code no longer working

Not 100% sure what is going on with all your named ranges but this code will do what you requested in the post:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim destSheet As Worksheet:     Set destSheet = Sheets("Completed Events")

If Not Intersect(Target, Columns("Z:Z")) Is Nothing Then
    If LCase(Target.Value) = "x" Then
        Application.EnableEvents = False
        Target.EntireRow.Cut Destination:=destSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Target.EntireRow.Delete
        Application.EnableEvents = True
    End If
End If

End Sub