wdStartOfRangeColumnNumber returns the number of the column in which the beginning of the selection or range falls.
Sub selectRange() Selection.Tables(1).Columns(Selection.Information (wdStartOfRangeColumnNumber)).Select End Sub