Sub CellMerge()
    Dim doc As Document
    Dim tbl As Table
    Dim nestedTbl As Table
    Dim i As Integer
    Dim j As Integer
    
    ' Set the document to the active document
    Set doc = ActiveDocument
    
    ' Ensure there is at least one table in the document
    If doc.Tables.Count > 0 Then
        ' Reference the first table
        Set tbl = doc.Tables(1)
        
        ' Loop through each row in the main table
        For i = 1 To tbl.Rows.Count
            ' Loop through each cell in the row
            For j = 1 To tbl.Rows(i).Cells.Count
                ' Check if the cell contains a nested table
                If tbl.Rows(i).Cells(j).Tables.Count > 0 Then
                    ' Reference the nested table
                    Set nestedTbl = tbl.Rows(i).Cells(j).Tables(1)
                    
                    ' Perform operations on the nested table
                    ' Example: Print the number of rows in the nested table
                    Debug.Print "Nested Table in Row " & i & ", Cell " & j & " has " & nestedTbl.Rows.Count & " rows."
                    
                    ' Example: Merge cells in the nested table if needed
                    If nestedTbl.Rows.Count > 1 Then
                        nestedTbl.Cell(1, 1).Merge nestedTbl.Cell(1, 2)
                    End If
                End If
            Next j
        Next i
    Else
        MsgBox "No tables found in the document."
    End If
End Sub