اريد تحويل المعادلة الى كود

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