excel如何把一行分成多行 大约是10行分成2个五行 不是在一个单元格里面的数据

Sub Macro1()
'
' Macro1 Macro
' 宏由 user1 录制，时间: 3/21/2019
'
'


    Dim tocell As String
    tocell = InputBox$("复制到哪一列里", , "C")
    colcount% = Val(InputBox$("分为几列", , "2"))
    currr = 0
    currc = 0
    For Each r In Selection
        If currc = 0 Then currr = currr + 1
        currcidx = Chr(Asc(tocell) + currc)
        currc = currc + 1
        currc = currc Mod colcount
        Range(currcidx & currr) = r
    Next
End Sub