Selection.Cells - SetWidth of merged cell

Question

I use the code bellow to add table to my Word document.

 With ActiveDocument.Tables.Add(Selection.Range, 2, 6)
      .Cell(1, 5).Merge MergeTo:=.Cell(2, 6)