Format error

[glottis]

Hi,

I am using this function to import a word table to excel:

For tableStart = 1 To tableTot
        With allTables(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

The problem is that is changing this content from Word:

To this in Excel:

So the errors are 2:

1) The format of some cells
2) As you can see it's like that some cells are added to the workbok

Could you kindly advise please?

Thank you

 

[glottis]

Any possible advice please?Thank you!