You may want to look at your revised code. You only want to clip the source range if it is a cell range. Otherwise you may be clipping the last valid character from your bookmarked text e.g.,
or something like that.If oRngSource.Information(wdWithinTable) Then End If