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