In the document I posted, there is a paragraph mark after the table because a document must always have at least one ordinary paragraph following the last table in the document. The same applies to tables within a content control; so how did you get your table into a content control without the terminating paragraph mark?
In any event, there are ways around this. For example:
Code:
Sub DelCCTbl()
Dim Rng As Range
With ActiveDocument.ContentControls(1).Range
Set Rng = .Tables(1).Range
.Tables(1).ConvertToText
With Rng
.End = .End - 1
.Start = .Start + 1
.Delete
End With
Set Rng = Nothing
End With
End Sub