السلام عليكم ...
تفضل الكود :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = "مغادر" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).ClearContents
Range(Cells(Target.Row, 6), Cells(Target.Row, 7)).ClearContents
End If
End If
End Sub