Hjælp til at "vende" data fra række til kollone

Følgende VBA-kode indsætter en tabel fra word til excel. Den indsætter den første tabel øverste oppe, og indsætter derefter den næste en række under.
Jeg vil gerne ændre på scriptet, så den indsætter den næste tabel i kollonen ved siden af. Så i stedet for:
ABC
DEF

ABC
DEF
Bliver det til:
ABC    ABC
DEF    DEF


Koden er:
Dim wdDoc As Object
Dim wdFileName As Variant
Dim tableNo As Integer 'table number in Word
Dim iRow As Long 'row index in Excel
Dim iCol As Integer 'column index in Excel
Dim resultRow As Long
Dim tableStart As Integer
Dim tableTot As Integer
...


    resultRow = 1

    For tableStart = 1 To tableTot
        With .tables(tableStart)
            'copy cell contents from Word table cells to Excel cells
            For iRow = 1 To .Rows.Count
                For iCol = 1 To .Columns.Count
                    Cells(resultRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
                Next iCol
                resultRow = resultRow + 1
            Next iRow
        End With
        resultRow = resultRow + 1
    Next tableStart
End With