Hello Graham,
It didn't exactly work.

If you experiment a table with 3 rows, in each row put A1, B1, C1. Then put 2 paragraphs ''¶'' (paragr) B4 and After the table, then duplicate it 3 times, to end up having:
2 ¶ +Table + 2 ¶ +Table + 2 ¶.

Then **Select:
1 ¶ +Table + 2 ¶ +Table + 1 ¶, if you try it, on my side, your macro only removed the first ¶.

HOWEVER, as an experiment :

I've added a Space or a Tab b4 ''¶'' (paragr), then **Select like above, run your macro, it added the Space or the Tab, into the cells. I already have a macro to delete Leading Space or Tabs in cells, I've tried each one, = Result ==> it merge all the tables without missing a row, and deleted the Leading Space or the Tab.

I can't even do a Find and Replace to add a Space or Tab in the Same **Select, unless manually, which defeit the purpose of the macro to remove the ¶ (paragr) in between tables to merge them together, cause that too, I can do manually.

It just that in a given document, with a macro, where I've extracted all the tables [less the table header and often less the first column, leaving only the columns with numbers], then pasted onto a New Word document with 2¶ (paragr) in between the tables, I could have 30 tables, of two columns, then different number of columns in other tables.

I had already created a macro to have all the columns the same size upon sText as an input box, so for example, put all columns to have 0.9" wide, I was hoping upon Selection, to merge the two columns together, instead of manually deleting the ¶ (paragr).

So hoping my Explanation if clearer in order we can find a solution.

I'll work on it again tonight, after work, but in the meantime, I welcome any input.

Thanks a million again,

p.s., on a Great Postive Note, your Macro, doesn't leave me in an eternal Loop

Cendrinne