Sub Макрос2()
Cells(1, 1).Select
Selection.End(xlDown).Select
rFinish = ActiveCell.Row
x = 10 'количество частей, на которые нужно разбить массив
RowX = rFinish / 10 'вставить формулу округления. Получим количество строк в каждом массиве
RowX = 2
Dim RowA%
n = 1
While n < x
RowA = RowA + RowX + 1
Rows(RowA).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Wend
End Sub