Как определить: символ из латиницы или кириллицы

Странные у вас наборы букв, некоторые и не буквы даже.

По моему, так вернее:

Буквы кириллицы:
Unicode Cirillic: ChrW$(&H400) & "-" & ChrW$(&H4FF)
Unicode Cyrillic Supplement: ChrW$(&H500) & "-" & ChrW$(&H523)

Буквы латиницы:
Unicode Basic Latin: ChrW$(&H41) & "-" & ChrW$(&H5A)
Unicode Latin Extended-A: ChrW$(&H61) & "-" & ChrW$(&H7A)
Unicode Latin Extended-B: ChrW$(&H100) & "-" & ChrW$(&H24F)

Чтобы убедиться, попробуй этот макрос на символах  “[“, “]”, “{“, “}”
Откуда в макросе взялись коды 601 и 1257 вообще непонятно.

PDF-файлы со всеми наборами символов стандарта Unicode можно найти на сайте внешняя ссылка
В Word, для просмотра символов Unicode, нужно в окне «Символ» (вставка символа) выбрать шрифт «Arial Unicode MS»

Понял ты правильно, только я неправильно записал. Учитывая замечание Вождя, следует переписать

Sub EnglishOrNot()
  Dim oCh As Range
  Dim Lang As String
  
  For Each oCh In Selection.Characters
    Lang = "Знак"
    If oCh.Text Like "[A-Za-z" & ChrW(&H100) & "-" & ChrW(&H24F) & "]" Then
      Lang = "Латинский символ"
    ElseIf IsNumeric(oCh.Text) Then
      Lang = "Цифра"
    ElseIf oCh.Text Like "[Ё-" & ChrW(&H4F9) & "]" Then
      Lang = "Кириллический символ"
    End If
    MsgBox Lang & vbCr & "Символ: """ & oCh.Text & """" & vbCr & "Код символа: " & AscW(oCh.Text)
  Next
  
End Sub

Коды символов брал из таблицы символов, входящей в состав Windows для шрифта Arial Unicode MS