Sub FormatA()
  Dim r&, re, ms, m, Iend As Integer
  Iend = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'последняя строка
' Сброс форматирования цвета текста
 Sheets("Таблица").Range("B2:B" & Iend).Font.ColorIndex = 1
'-------------------------
  Set re = CreateObject("VBScript.RegExp")
        re.Pattern = "(^| {1})[^- ]{2,}"    'шаблон поиска (начало строки или пробел, не содержит "-", кол-во символов от 2 и более)
        re.Global = True                 
  For r = 3 To Iend
    If re.Test(Cells(r, 2).Value) And Cells(r, 2) Like "*-*" Then
      Set ms = re.Execute(Cells(r, 2).Value)
      For Each m In ms
        Cells(r, 2).Characters(m.firstindex + 1, m.Length).Font.Color = RGB(64, 128, 128)   'задание цвета текста
      Next
    End If
  Next
  
End Sub

Cells(r, 2).Characters(m.firstindex + 1, m.Length).Font.Color = RGB(12, 93, 118) 'задание цвета текста

.SpecialCells(xlLastCell)).Rows

'переопределяем рабочий диапазон листа
    With ActiveSheet.UsedRange: End With

SpecialCells(xlLastCell)).Rows

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Dim iA As Long, iB As Long
    iA = Columns("A").Find("(", [A1], LookIn:=xlValues, SearchDirection:=xlNext).Row
    iB = Columns("A").Find(")", [A1], LookIn:=xlValues, SearchDirection:=xlNext).Row
Range(Cells(iA, 1), Cells(iB, 1)).Select

Option Explicit
Public endRow As Integer

Sub Сортировка_строки()

endRow = Sheets("исходник").Cells(Rows.Count, 1).End(xlUp).Row

' cортировка одной строки
    ActiveWorkbook.Worksheets("исходник").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("исходник").Sort.SortFields.Add2 Key:=Range("B2:R2" _
        ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("исходник").Sort
        .SetRange Range("B2:R2")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

zName = Replace_symbols(ActiveWorkbook.Sheets("dannye").Range("b3").Value & " " & ActiveWorkbook.Sheets("dannye").Range("e3").Value)  'имя папки и город