'The following statements use the Count property to check the number of columns in the first table in the active document and
Sub add()
With ActiveDocument.Tables(1)
.Select
If .Columns.Count < 5 Then
Do Until .Columns.Count = 5
.Columns.add BeforeColumn:=.Columns(.Columns.Count)
Loop
End If
End With
End Sub