У меня таблица в ворде заполняется вот так:  
With ActiveSheet  
       Set rng = Range("C291:G293")  
       rng.Activate  
       For X = 1 To rng.Rows.Count  
           For y = 1 To rng.Columns.Count  
               app.activedocument.tables(1).cell(X + 2, y + 1).Range.Text = rng(X, y)  
 
           Next y  
       Next X  
end with  
 
Но это при больших таблицах занимает много времени. Есть ли альтернативный способ для больших таблиц???