Así se agrega la tabla:

Documento.Tables.Add(Documento.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range, NumRows:=6, NumColumns:=2)