копирование строк нужное количество раз

[Composter]

здравствуйте.написал небольшой макрос по копированию строк нужное количество раз.осуществил через копирование-вставку.есть ли другой способ?

Option Explicit
Option Base 1
Public Sub kopirovanie_strok()
Dim UserRange1 As Range
Dim arr1 As Variant
Dim i As Integer, j As Integer, koli4estvo_kopii As Integer
Set UserRange1 = Application.InputBox(prompt:="Óêàæèòå ñòðîêè äëÿ êîïèðîâàíèÿ", Type:=8)
arr1 = UserRange1
koli4estvo_kopii = Application.InputBox(prompt:="Óêàæèòå êîëè÷åñòâî êîïèé äàííûõ ñòðîê", Type:=1)
UserRange1.Copy
Application.ScreenUpdating = False
For j = UserRange1.Rows.Count + UserRange1.Row To UserRange1.Rows.Count * (koli4estvo_kopii + 1) Step UserRange1.Rows.Count
        UserRange1.Copy
        UserRange1.EntireRow.Insert
Next j
UserRange1.ClearOutline
Application.ScreenUpdating = True
End Sub

[EducatedFool]

да, есть способ попроще - сразу вставить нужное количество строк,
и одной строкой кода заполнить их (одну строку можно скопировать в несколько строк)

Но... без примера файла сложно понять, что требуется

[Composter]

вот файл, мне необходимо скопировать с 8 по 14 строки определенное количество раз.