Sub Repair_LAT()   ' заменить русские буквы такими же по начертанию латинскими     
  If TypeName(Selection) <> "Range" Then Exit Sub   
  Dim arrENG(): arrENG = Array("C", "c", "E", "e", "T", "O", "o", "p", "P", "A", "a", "H", "K", "k", "X", "x", "B", "M")   
  Dim arrRUS(): arrRUS = Array("С", "с", "Е", "е", "Т", "О", "о", "р", "Р", "А", "а", "Н", "К", "к", "Х", "х", "В", "М")   
  Dim i%   
  For i = 0 To UBound(arrENG)   
     Intersect(Selection, ActiveSheet.UsedRange).Replace _   
           What:=arrRUS(i), _   
           Replacement:=arrENG(i), _   
           LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True   
  Next i   
End Sub

' штрихкод
    Range("B12").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "@"
    Range("B12").Select
    Selection.FormulaArray = "=INDEX([value.xls]Лист1!R1C1:R4622C4,RC[-1],2)"
    Selection.AutoFill Destination:=Range("B12:B2160")

' открываем данные и делаем форматы
    Workbooks.Open Filename:="Z:\Прайс-листы\value.xls"
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "@"

' артикулы в текстовый формат
    Range("E12").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "@"
 
' поискпоз
    Range("A12").Select
    Selection.FormulaArray = "=MATCH(RC[4],[value.xls]Лист1!R1C1:R4622C1,0)"
    Selection.AutoFill Destination:=Range("A12:A2160")