以下是一个简单的VBA代码示例，用于在Word文档的末尾插入一个3行4列的表格：

Sub InsertTableInWord()
    Dim wdDoc As Document
    Dim wdTable As Table
    
    ' 获取当前活动的Word文档
    Set wdDoc = ActiveDocument
    
    ' 在文档末尾插入一个表格
    Set wdTable = wdDoc.Tables.Add(Range:=wdDoc.Content.End, NumRows:=3, NumColumns:=4)
    
    ' 可选：对表格进行格式化
    ' 例如，设置表格边框、调整列宽等
    ' wdTable.Borders.Enable = True
    ' wdTable.Columns(1).Width = wdDoc.InchesToPoints(1)
    ' 可以对单元格进行赋值 wdTable.Cell(i, j).Range.Text
    ' i,j分别为单元格行号和列号
    
    ' 释放对象
    Set wdTable = Nothing
    Set wdDoc = Nothing
End Sub

在这段代码中，我们使用了wdDoc.Tables.Add方法来插入表格。Range:=wdDoc.Content.End指定了在文档的末尾插入表格，NumRows:=3和NumColumns:=4分别指定了表格的行数和列数。

你可以根据需要修改这段代码，例如更改表格的行数、列数，或者在文档的其他位置插入表格。