请大神，公式解决，宏玩不转

如果数据源是在A1：A13单元格。公式如下
=IF(ROW(A1)>INDEX(FREQUENCY(ROW($1:$13),IF($A$2:$A$14<=$A$1:$A$13,ROW($1:$13))),COLUMN(A1)),"",ROW(A1))
数组公式ctrl+shift+enter确认。
下拉，右拉。

Sub j1j()
Dim rng As Range, z As Range, y%, x%, m%
Set rng = Cells(Rows.Count, 1).End(x1up)
For y = 1 To rng.Row
If Cells(y, 1) = 1 Then
For x = y + 1 To rng.Row
If Cells(x, 1) = 1 Then
m = m + 1
Range(Cells(y, 1), Cells(x - 1)).Copy Cells(1, m + 1)
GoTo 100
End If
Next
End If
100:
Next
Set z = Range("a:a").Find(1, , x1formulas, , , x1previous)
Range(z, rng).Copy Cells(1, m + 2)
End Sub