'/  Copy tables from master document to userdoc
Sub CopyTables( _
)

Dim MasterDoc As Word.Document
Dim UserDoc As Word.Document
Dim MyTable As Word.Table
Dim rng_Paste As Variant

Dim MyCell As Word.Cell
Dim i As Integer


Set MasterDoc = Documents("MasterDoc.docx")
Set UserDoc = Documents("UserDoc.docm")


'/  Paste content from tables in MasterDoc to tables in UserDoc
For Each MyTable In MasterDoc.Tables
    i = i + 1
    For Each MyCell In MyTable.Columns(1).Cells
    
        
        Set rng_Paste = UserDoc.Tables(i).Cell(MyCell.RowIndex, 1).Range
        
        
        '/   If the number of rows = 1, it inserts a new column instead of replacing the 
        '/   content in rng_Paste. If number of rows > 1 it replaces the content of
        '/   rng_Paste (As it should)

        MyCell.Range.Copy
        rng_Paste.Paste wdFormatOriginalFormatting
    
    
    Next
Next


End Sub