Add Method (Columns Collection Object) Example
This example creates a new column before column one in the table represented by shape five on slide two. It then sets the width of the new column to 72 points (one inch).
With ActivePresentation.Slides(2).Shapes(5).Table
.Columns.Add(1).Width = 72
End With