Sub FixWordTableInExcel97()
'Alle Zellzusammenführungen und Textumbrüche aus der eingefügten Tabelle entfernen
'und dann alle Leerzeilen löschen, die durch das Kopieren eingefügt wurden.

 With Selection
 .WrapText = False
 .MergeCells = False
 End With

Dim Rw As Range
 With Application
 .Calculation = xlCalculationManual
 .ScreenUpdating = False

 Selection.SpecialCells(xlCellTypeBlanks).Select

 For Each Rw In Selection.Rows
 If WorksheetFunction.CountA(Selection. _
 EntireRow) = 0 Then
 Selection.EntireRow.Delete
 End If
 Next Rw

 .Calculation = xlCalculationAutomatic
 .ScreenUpdating = True
 End With
End Sub