Private Sub Worksheet_Change(ByVal Target As Range)
Dim e, x, i As Long
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Column = 2 Then
e = Array("تاجر", "مهندس", "طبيب", "محامى", "معلم ", "رئيس", "خباز", "فاكهانى", "ميكانيكى ", "اقتصادى", "زراعى ", "تجارى", "طالب", "خبير ", "سائق", "عامل نظافه ", "كيميائى ", "فيزيائى ", "اعمال حرة ", "مكتبه ", "صيدلى ", "صناعى", "نجار", "سياك ", "كهربائى ")
x = Application.Match(Target.Value, e, 0)
If Not IsError(x) Then Target.Offset(, 1).Value = x
End If
End Sub