ترحيل بشرط

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