SourceTable.Cell(1,1).range.copy destTable.Cell(1,1).range.pasteandformat (wdFormatOriginalFormatting)