This example collapses the selection to the starting point and then selects the column that contains the insertion point.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.SelectRow
End If