Sub front()
    Range("A6:J67").Select
    Selection.Font.Bold = False
    Selection.Font.Italic = False
    Selection.Font.Size = 14
    Selection.Font.Name = "Times New Roman"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
End Sub

Sub dfd()
Dim IE
     
 Do
 Set IE = CreateObject("InternetExplorer.Application")
 y = y + 1
    textes = Worksheets("Лист1").Cells(2, 2).Cells(y).Value
    Worksheets("Лист1").Cells(2, 2).Cells(y).Select
    tel = Worksheets("Лист1").Cells(2, 1).Cells(y).Value
 If tel = "" Then Exit Do
    Dim strUrl As String
     
    strUrl = RussianStringToURLEncode_New("..; & tel & "&shortcode=INPK&text=" & textes)
    IE.Navigate strUrl
  
    Do While IE.busy
        Application.Wait 1000
    Loop
 
 
   IE.Quit
   Set IE = Nothing
       
 Loop
 
MsgBox "Отправлено " & y
End Sub
 
 
 
Function RussianStringToURLEncode_New(ByVal txt As String) As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: t = "%20"
            Case Else: t = l
        End Select
        RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
    Next
End Function
Sub test()
Application.DisplayAlerts = False
Workbooks("Book.xlsx").Saved = True
Application.DisplayAlerts = True
End Sub