Автоподбор по содержимому реализовать в макросе - VBA

Формулировка задачи:

Сделал макрос, который из выделенных двух строчек делает таблицу (пример во вложении), но что-то не получается сделать автоподбор по содержимому выделенной таблицы

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=2, _
         NumRows:=1, AutoFitBehavior:=wdAutoFitContent
    With Selection.Tables(1)
        .Style = "Сетка таблицы"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .PreferredWidthType = wdPreferredWidthPercent
        .PreferredWidth = 100
        .AllowAutoFit = True
    End With
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    With Selection.Cells(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0.25)
        .WordWrap = True
        .FitText = False
        .Range.Text = Replace(.Range.Text, " ", Chr(160))
    End With
    Selection.SelectRow
    With Selection.Cells(2)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        .WordWrap = True
        .FitText = False
    End With
End Sub

Решение задачи: «Автоподбор по содержимому реализовать в макросе»

textual
                            Листинг программы 
                        

                                Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
End Sub
                        