怎么加一段條件代碼，請大神指教

歐陽使者871118

請大神看一下怎么給我加段代碼，現(xiàn)在代碼可以實現(xiàn)雙擊名稱，J列就會自動變換供應(yīng)商，現(xiàn)在需要加一個條件，當(dāng)J列是和昌的時候雙擊名稱才變換供應(yīng)商，J列是空白或者HC外協(xié)，雙擊名稱不發(fā)生變化。
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    Dim arr, brr, crr, i&, k&
    arr = Array("井道材料", "導(dǎo)軌", "層門裝置(OULING)", "對重塊", "側(cè)梁", "對重架", "門機(jī)(OULING)", "曳引機(jī)(GETM3.0H)", _
        "承重梁", "控制柜", "線系統(tǒng)&安全部件", "鋼絲繩", "繩輪", "標(biāo)準(zhǔn)件", "平衡補(bǔ)償鏈", "轎門&人機(jī)交換", "轎頂、底&上梁", _
        "轎廂裝潢", "曳引機(jī)(GTW9S)", "轎底配重塊", "門機(jī)(歐菱)", "曳引機(jī)(TORIN)", "轎頂", "機(jī)器底座", "廳門&門套&后圍壁", _
        "門機(jī)(XIZI)", "曳引機(jī)(GETM6.0H)", "廳門&門套", "廳門", "曳引機(jī)(MONA320B)", "曳引機(jī)(MONTANARI)", "Hoistway material井道材料", _
        "Rails導(dǎo)軌", "Hall door device層門裝置(OULING)", "CWT block對重塊", "CWT frame對重架", "Ceiling &platform&Cross beam轎頂、底&上梁", _
        "Car decoration轎廂裝潢", "Gate operator門機(jī)(OULING)", "Traction machine曳引機(jī)(GETM3.0H)", "Supporting beam承重梁", "Controller控制柜", _
        "Wiring&Safe Parts線系統(tǒng)&安全部件", "Ropes鋼絲繩", "Guiding pulley繩輪", "層門裝置(XIZI)", "曳引機(jī)(GETM3.2D)", "主機(jī)底座")
    brr = Array("永德", "西豪", "歐菱", "南南", "永德", "永德", "歐菱", "富沃德", "永德", "和昌", "和昌", "通用", "永德", "力旭", "富美達(dá)", _
        "萊升", "永德", "山明", "甫哥", "南南", "歐菱", "甫哥", "萊升", "利昌", "山明", "優(yōu)邁", "富沃德", "山明", "山明", "蒙納", "蒙納", _
        "永德", "浩圣", "歐菱", "南南", "永德", "永德", "山明", "歐菱", "富沃德", "永德", "和昌", "和昌", "通用", "兆元", "優(yōu)邁", "富沃德", "利昌")
    For k = 0 To UBound(arr)
        If arr(k) = Target.Value Then
            Target.Offset(0, 7) = brr(k): Exit For
        End If
    Next
End Sub