VBA Russian transliterate function

vba_russian_transliterate.vb

'http://www.utf8-chartable.de/unicode-utf8-table.pl?start=1024&utf8=-&unicodeinhtml=dec
'use numerical HTML column
Function Transliterate(Russian As String)
    letters = Array("A", "B", "V", "G", "D", "E", "YO", "ZH", "Z", "I", "Y", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "H", "TZ", "CH", "SH", "SCH", "", "Y", "", "E", "YU", "YA", "a", "b", "v", "g", "d", "e", "yo", "zh", "z", "i", "y", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "tz", "ch", "sh", "sch", "", "y", "", "e", "yu", "ya", "#")
    i = 1040
    For Each letter In letters
        Dim val As String
        Select Case letter
            Case "YO"
                val = ChrW(1025)
            Case "yo"
                val = ChrW(1105)
            Case "#"
                val = ChrW(8470)
            Case Else
                val = ChrW(i)
                i = i + 1
        End Select
        Russian = Replace(Russian, val, letter)
    Next letter
    Transliterate = Russian
End Function

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(E2,"ў", "o'"),"Ғ", "G'"),"ғ", "g'"),"Ё", "Yo"),"ё", "yo"),"ҳ", "h'"),"қ", "q"),"Ҳ", "H"),"Қ", "Q"),"Ў", "O'"),"ия", "ia"),"я", "ya"),"ю", "yu"),"ь", ""),"ъ", "'"),"щ", "sh"),"ш", "sh"),"ч", "ch"),"ц", "ts"),"х", "h"),"ф", "f"),"у", "u"),"т", "t"),"с", "s"),"р", "r"),"п", "p"),"о", "o"),"н", "n"),"м", "m"),"л", "l"),"к", "k"),"й", "y"),"и", "i"),"з", "z"),"ж", "j"),"е", "e"),"д", "d"),"г", "g"),"в", "v"),"б", "b"),"а", "a"),"Я", "Ya"),"Ю", "Yu"),"Ъ", "'"),"Щ", "Sh"),"Ш", "Sh"),"Ч", "Ch"),"Ц", "Ts"),"Х", "H"),"Ф", "F"),"У", "U"),"Т", "T"),"С", "S"),"Р", "R"),"П", "P"),"О", "O"),"Н", "N"),"М", "M"),"Л", "L"),"К", "K"),"Й", "Y"),"И", "I"),"З", "Z"),"Ж", "J"),"Е", "E"),"Д", "D"),"Г", "G"),"В", "V"),"Б", "B"),"А", "A")

For one column (E2)