вот частичный код. интересно, есть ли способ использовать имя заголовка таблицы, чтобы установить ширину ее столбца. последний оператор - это место для установки ширины.
Worksheets("PDX Master List").ListObjects.Add(SourceType:=xlSrcRange, _
Source:=tableRange, _
xlListObjectHasHeaders:=xlYes _
).Name = tableName
Dim t As Object
Set t = Worksheets("PDX Master List").ListObjects(tableName)
t.range.WrapText = True
t.range.EntireColumn.ColumnWidth = 15
' could use the table header name to set column width?
t.ListColumns("Description").Width = 30