VBA将数据分离并转置为行

Question

我一直在尝试找出如何使用以下格式将工作表上的两列数据分成行。

发件人：

收件人：

我能够从另一篇文章（在下面链接）中找出其中的一部分（分离并转移B列中的名称），但是我无法弄清楚如何复制A列中的数据

Sub Vertical()
Dim i As Long, st As String
i = 1
Dim startP As Range
For Each r In Selection
    If i = 1 Then
        st = r.Text
        i = 2
    Else
        st = st & "," & r.Text
    End If
Next r

Set startP = Selection(1, 2)
ary = Split(st, ",")
i = 1
For Each a In ary
    startP(i, 1).Value = a
    i = i + 1
Next a  
End Sub

当然，实际数据是我们系统内工作区和工作人员的一长串。我只是不能在这里发布。

提前谢谢！！