Sub Макрос1()
    Dim rng As Range
    Set rng = Range("A1:H5")
    rng.Replace Chr(13), Chr(10)
    rng.Replace Chr(11), Chr(10)
    rng.FormulaLocal = rng.FormulaLocal
End Sub

Sub Макрос1()
    Dim rng As Range
    Set rng = Range("A1:K1123")
    rng.Replace Chr(13), Chr(10)
    rng.FormulaLocal = rng.FormulaLocal
End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    If Sh.Name = "Шаблон" Then
        MsgBox "Удаление листа 'Шаблон' запрещено!" & vbCrLf & "" & vbCrLf & "Данный лист является системным.", 16, "Info"
        ActiveWorkbook.Close False
    End If
End Sub

Sub ЗаполнитьМассив ()
    Dim arr(1 To 100), i%, counts(1 To 5), p
    For i = 1 To 100
        arr(i) = Int(Rnd() * 5 + 1)
    Next
    p = Array(0, 0, 0.25, 0.15, 0.1, 0.05)
    For i = 1 To 100
        If counts(5) < 100 * p(5) Then arr(i) = 5: counts(5) = counts(5) + 1
    Next
    For i = 1 To 100
        If arr(i) <> 5 Then
            If counts(4) < 100 * p(4) Then arr(i) = 4: counts(4) = counts(4) + 1
        End If
    Next
    For i = 1 To 100
        If arr(i) <> 5 And arr(i) <> 4 Then
            If counts(3) < 100 * p(3) Then arr(i) = 3: counts(3) = counts(3) + 1
        End If
    Next
    For i = 1 To 100
        If arr(i) <> 5 And arr(i) <> 4 And arr(i) <> 3 Then
            If counts(2) < 100 * p(2) Then arr(i) = 2: counts(2) = counts(2) + 1
        End If
    Next
    For i = 1 To 100
        If arr(i) > 1 Then counts(arr(i)) = counts(arr(i)) + 1 Else counts(1) = counts(1) + 1
    Next
    Range("A1:A100").Value = Application.Transpose(arr)
    MsgBox "Распределение:" & vbCrLf & _
           "5: " & counts(5) & "%" & vbCrLf & _
           "4: " & counts(4) & "%" & vbCrLf & _
           "3: " & counts(3) & "%" & vbCrLf & _
           "2: " & counts(2) & "%" & vbCrLf & _
           "1: " & counts(1) & "%"
End Sub

Workbooks.Open("C:\Users\OLEGAS\Desktop\Замены.xlsx").Sheets("Лист1").Copy After:=ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets(2).Name = "Замены"
Workbooks("Замены.xlsx").Close False

#If VBA7 Then
    Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
    Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
        (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
#Else
    Private Declare Function GetForegroundWindow Lib "user32" () As Long
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
        (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
#End If

Sub GIS_MTR_19_TAB_PASTE_ENTER()
    Dim sh As Object
    Dim hWnd As Variant
    Dim title As String

    Set sh = CreateObject("WScript.Shell")

    sh.Run "cmd /c start https://xn--80ajghhoc2aj1c8b.xn--p1ai/checking_codes/", 1, False
    Application.Wait Now + TimeValue("00:00:01")
    Do
        DoEvents
        hWnd = GetForegroundWindow
        title = Space(255)
        GetWindowText hWnd, title, 255
        title = LCase(title)
    Loop Until InStr(title, "проверка") > 0 Or InStr(title, "маркиров") > 0

    sh.SendKeys "{TAB 19}"
    sh.SendKeys "3926200000"
    Application.Wait Now + TimeValue("00:00:01")
    sh.SendKeys "{ENTER}"
End Sub