Try

Application.ScreenUpdating = False

It might speed it up.

It might also be that you can get away without using the select statements and
that this might speed it up:


ActiveDocument.Tables(TableCount).Copy
ExcelSheet.Application.Cells(RowNumber,ColumnNumber).Paste

If you're not doing the selects, the screens might not be redrawn.