Cutting and Pasting Tables

[Gerald Perna]

I want to move all of the tables in a document to the end
of that document. I have some code that will do it, but I
don't know how to keep it from looping.


For Each aTable In ActiveDocument.Tables
Set rng = aTable.Range
rng.Select
Selection.Tables(1).Select
Selection.Cut
Selection.EndKey Unit:=wdStory
Selection.Paste
Next 'aTable

Can someone help?

Thanks.

Jerry