delete the column in which the range testRange ends if the range is more than one column wide:
With testRange If .Information(wdStartOfRangeColumnNumber) <> _
.Information(wdEndOfRangeColumnNumber) Then _
.Tables(1).Columns(.Information _
(wdEndOfRangeColumnNumber)).Delete End With