Многократное копирование строк n раз с поискам параметра n на листе

Sub MMM()
With Sheets("Sheet4 (4)")
        LR1 = .Cells(.Rows.Count, 2).End(xlUp).Row
        ARR1 = Range(.Cells(1, 1), .Cells(LR1, 15)).Value
        For i = 1 To LR1
        SM = SM + Abs(ARR1(i, 4))
        Next
        
        ReDim ARR2(1 To SM, 15)
 
        For i = 1 To LR1
          For j = 0 To Abs(ARR1(i, 4)) - 1
               M = M + 1
              For K = 1 To 15
 
                ARR2(M, K) = ARR1(i, K)
              Next
          Next
        Next
 
 .Cells(1, 1).Resize(M, 15).Value = ARR2
End With
 
MsgBox ("Çàäà÷à çàâåðøåíà")
 
End Sub

Public Sub www()
    Application.ScreenUpdating = False
    arr = "1 5 6 10 12 13 14 15"
    For i = Cells(Rows.Count, 5).End(xlUp).Row - 1 To 7 Step -1
        If Cells(i, 5) <> "" And Cells(i, 5) > 1 Then
            For j = 1 To Cells(i, 5)
                Rows(i + 1).Insert Shift:=xlDown
                Rows(i).EntireRow.Copy Destination:=Rows(i + 1)
                For Each s In Split(arr)
                    Cells(i + 1, CInt(s)) = "-"
                Next
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Public Sub www()
    Application.ScreenUpdating = False
    arr = "1 5 6 10 12 13 14 15"
    For i = Cells(Rows.Count, 5).End(xlUp).Row - 1 To 7 Step -1
        If Cells(i, 5) <> "" And Cells(i, 5) > 1 Then
            For j = 1 To Cells(i, 5)
                Rows(i + 1).Insert Shift:=xlDown
                Rows(i).EntireRow.Copy Destination:=Rows(i + 1)
                For Each s In Split(arr)
                    Select Case s
                        Case "1"
                            Cells(i + 1, CInt(s)) = Cells(i, 1) & "_" & Cells(i, 5) - j + 1
                        Case "10"
                            Cells(i + 1, CInt(s)) = "Элемент " & Cells(i, 5) - j + 1
                        Case "12"
                            Cells(i + 1, CInt(s)).NumberFormat = "@"
                            Cells(i + 1, CInt(s)) = CStr(Cells(i, 5) - j + 1)
                        Case Else
                            Cells(i + 1, CInt(s)) = "-"
                    End Select
                Next
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Sub MMM()
arr = Array(1, 5, 6, 10, 12, 13, 14, 15)
For Each s In arr
    Debug.Print s
Next
End Sub