Sub FixWordTableInExcel97()
'Removes all cell merges and text wrapping from the pasted table _
and then deletes all blank rows added by the paste.

 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