Siempre puedes referirte a objetos del documento como palabras o párrafos para obtener un Rango adecuado, por ejemplo tomemos como primer párrafo a tu Título, entonces obtenemos un Rango que sea el último elemento de dicho párrafo (el salto de línea) e insertamos ahí la tabla:
Código (vb,11,14) [Seleccionar]
Private Sub mkdoc()
Dim word_app As Word.Application
Dim word_doc As Word.Document
Dim tbl As Word.Table
Dim rng As Word.Range
Set word_app = New Word.Application
Set word_doc = word_app.Documents.Add(DocumentType:=wdNewBlankDocument)
' Inserta un título al final del documento (al inicio porque está vacío)
word_doc.Content.InsertAfter "Mi Título"
' Inserta una tabla despues del primer párrafo (despues del título)
Set rng = word_doc.Range(word_doc.Paragraphs(1).Range.End - 1, word_doc.Paragraphs(1).Range.End)
Set tbl = word_doc.Tables.Add(Range:=rng, NumRows:=3, NumColumns:=4)
tbl.AutoFormat Format:=wdTableFormatElegant
word_doc.SaveAs FileName:="docu"
word_doc.Close True
word_app.Quit False
End Sub
