Bổ sung thêm điều kiện cho code (2 người xem)

[lhthai]

Hiện tại mình chạy code thì dữ liệu dò tìm bên sheet2 và trả về giá trị chữ A ở cột N & AJ
Mình muốn thêm điều kiện sau
Nếu cột N & AJ có chữ A thì trả về A
hoặc nếu cột N & AJ có các ký tự khác ( ví dụ như W, AN, N...) thì trả về kết quả dò tìm nối với cột N & AJ
--mình mong muốn kết quả giống như cột S--

Sub SoTK()
  Dim MSCN(), SoTaiKhoan()
    Dim I As Long, Str As Range, J As Byte
    Dim shname As String
shname = InputBox("Nhap ten Sheet")
If Len(shname) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For J = 7 To 30 Step 22
        With Sheets(shname)
            MSCN = .Range(.Cells(10, J), .Cells(65000, J).End(xlUp)).Value
        End With
        ReDim SoTaiKhoan(1 To UBound(MSCN), 1 To 1)
        For I = 1 To UBound(MSCN)
            Set Str = Sheet2.[A:A].Find(MSCN(I, 1), , , xlWhole)
            If Not Str Is Nothing And MSCN(I, 1) <> vbNullString Then
                SoTaiKhoan(I, 1) = Str.Offset(, 2)
            End If
        Next
        Sheets(shname).Cells(10, J + 7).Resize(I - 1, 1) = SoTaiKhoan
        Set Str = Nothing
    Next J
    Application.ScreenUpdating = True
End Sub