Vba 将某一行数据移动到列中（反转现有宏）

参考此处提供的解决方案：

我需要反向执行此操作，例如：

A E F G H I B J K L M N C O P Q R S D T U V W X A E F G H I B J K L M N C O P Q R S D T U V W X 到

E F G A H A我 B J B K 比尔 B M B N 狱警 CP Cq C R CS D T 杜 D V D W D X 有人能帮我吗？

Sub foo()

    Dim rng As Range
    Dim row As Integer
    Dim col As Integer

    Set rng = Sheets("Sheet1").Range("A1:A4")
    row = 0

    For Each cell In rng
        col = 1
        Do Until cell.Offset(0, col) = ""
            Sheets("Sheet1").Range("A6").Offset(row, 0) = cell
            Sheets("Sheet1").Range("A6").Offset(row, 1) = cell.Offset(0, col)
            row = row + 1
            col = col + 1
        Loop
    Next cell


End Sub

Sub foo()

    Dim rng As Range
    Dim row As Integer
    Dim col As Integer

    Set rng = Sheets("Sheet1").Range("A1:A4")
    row = 0

    For Each cell In rng
        col = 1
        Do Until cell.Offset(0, col) = ""
            Sheets("Sheet1").Range("A6").Offset(row, 0) = cell
            Sheets("Sheet1").Range("A6").Offset(row, 1) = cell.Offset(0, col)
            row = row + 1
            col = col + 1
        Loop
    Next cell


End Sub