wdEndOfRangeColumnNumber returns the number of the column in which the end of the selection or range falls. : Document Table « Word « VBA / Excel / Access / Word
wdEndOfRangeColumnNumber returns the number of the column in which the end of the selection or range falls.
With testRange
If .Information(wdStartOfRangeColumnNumber) <> _
.Information(wdEndOfRangeColumnNumber) Then _
.Tables(1).Columns(.Information _
(wdEndOfRangeColumnNumber)).Delete
End With