请教如何将向word添加的表格中的单元格合并？

请教各位老师，小弟现通过VBA向WORD添加了一个表格，表格前后还有其它表格，列宽不好控制（后面输出的表格设置列宽会影响到前面的表格），想通过合并单元格的方式控制列宽。现设置了10列，想第1、2列合并，输出aa字段的内容；第3、4列合并，输出bb的内容；第5-10合并，输出CC的内容。请教各位老师，现有代码应该如何修改好呢呢？谢谢！

现在的代码如下：

Private Sub cmd_aa_Click()
On Error GoTo 创建
    Dim WdApp As Word.Application
    Dim WdDoc As Word.Document
    Dim StrAdr As String
    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    Set Db = CurrentDb
    Set rs = Db.OpenRecordset("123")
   
    StrAdr = CurrentProject.Path & "\123.docx"
    Set WdApp = GetObject(, "Word.Application")
    Set WdDoc = WdApp.Documents.Open(StrAdr)
    WdApp.Visible = True
    
    WdDoc.Tables.Add Selection.Range, 1, 10
    For Each atable In WdDoc.Tables
        atable.Borders.OutsideLineStyle = wdLineStyleSingle
        atable.Borders.InsideLineStyle = wdLineStyleSingle
    Next atable
    
    Set Db = CurrentDb
    Set rs = Db.OpenRecordset("123")
    With WdApp.Selection
                Do While rs.EOF = False
                .TypeText rs![aa]
                .MoveRight wdCell
                .TypeText rs![bb]
                .MoveRight wdCell

                 .TypeText rs![cc]
                .MoveRight wdCell
                rs.MoveNext
            Loop
    End With

    WdApp.Selection.Rows.Delete
    创建:
    If Err = 429 Then
        Set WdApp = CreateObject("Word.Application")
        Resume Next
    End If
    WdDoc.Save

End Sub