Excel vba/宏将行移动到N行之后的下一列并复制标题

如何使用excel vba/macro中的命令按钮将第15（n）行之后的行移动/剪切到下一列，并重复我的标题列。 我有这样的数据：

我想使用命令按钮将行（n）更改为列，结果如下： 试试这个

Sub test()
    Dim vDB, rngDB As Range
    Dim vHead
    Dim rngT As Range, i As Long

    Set rngDB = Range("a3").CurrentRegion
    vHead = Range("a3").Resize(1, 2)
    For i = 16 To rngDB.Rows.Count Step 15
        vDB = rngDB.Range("a" & i).Resize(15, 2)
        Set rngT = Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
        rngT.Resize(1, 2) = vHead
        rngT.Offset(1, 0).Resize(15, 2) = vDB
    Next i
    rngDB.Offset(16).Clear
    Set rngDB = Range("a3").CurrentRegion
    rngDB.Borders.LineStyle = xlContinuous
End Sub

---

在执行第一次剪切时录制宏，然后在循环中使用该宏（已修改）。StackOverflow不是免费编码服务。请告诉我们你到目前为止都做了些什么。