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("DATA ELV").Range("A" & Sheets("DATA ELV").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, 24).Value = Cells(Target.Row, 1).Resize(, 24).Value
ElseIf 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).ClearContents
End If
End If
End Sub