It keeps showing the error on this line
Colar a primeira tabela
intervaloTabela1.Copy
wordSelection.PasteAndFormat (wdFormatOriginalFormatting) ' Colar a primeira tabela com formatação original
wordSelection.TypeParagraph ' Adicionar uma linha em branco entre as tabelas