للمغادره :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 24 Then
        
        If Target.Value = "مغادر" Then
            Sheets("MOGHADIR").Range("A" & Sheets("MOGHADIR").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
            Cells(Target.Row, 1).Resize(, 24).Delete
        End If
    End If

End Sub