Sub ConvertAnsiToUtf8(aFileName As String)
    Dim outputFile As String
    Dim text As String
    
    ' Имя файла в кодировке UTF-8
    outputFile = Replace(aFileName, ".txt", "_UTF.txt")
    
    ' Чтение файла в кодировке ANSI
    With CreateObject("ADODB.Stream")
        .Type = 2 ' adTypeText
        .Charset = "windows-1251" ' или "iso-8859-1" для западноевропейской кодировки
        .Open
        .LoadFromFile aFileName
        text = .ReadText
        .Close
    End With
    
    ' Запись файла в кодировке UTF-8
    With CreateObject("ADODB.Stream")
        .Type = 2 ' adTypeText
        .Charset = "utf-8"
        .Open
        .WriteText text
        .SaveToFile outputFile, 2 ' adSaveCreateOverWrite
        .Close
    End With
    
    MsgBox "Файл успешно перекодирован в UTF-8", vbInformation
End Sub

'Пример вызова процедуры конвертации
Sub test()
'Измените имя файла "d:\Wrk\4\Win32\Debug\al.txt" на имя своего файла 
  Call ConvertAnsiToUtf8("d:\Wrk\4\Win32\Debug\al.txt")
End Sub

=A1 & ";" & B1

 Columns("B:E").Sort key1:=Range("B2"), order1:=xlAscending, Header:=xlYes, _
     key2:=Range("C2"), order1:=xlAscending, Header:=xlYes _
     , key3:=Range("D2"), order1:=xlAscending, Header:=xlYes
     , key4:=Range("E2"), order1:=xlAscending, Header:=xlYes

=A2/100*(100+B2)

Public Sub RemoveDigits()
' Макрос удаляет текст цифры оставляет.
    Static pReg As Object
    Dim Cell As Range
    
    If TypeOf Selection Is Range Then
        If pReg Is Nothing Then
            Set pReg = CreateObject("VBScript.RegExp")
            pReg.Global = True: pReg.Pattern = "[^\d,]"
        End If
        For Each Cell In Selection
            If Application.WorksheetFunction.IsText(Cell.Value) Then Cell.Value = pReg.Replace(Cell.Value, "")
        Next
    End If
End Sub