Oh, I see. I misunderstood. Thanks for the example that helps a ton.
EDIT: give this a try, instead of inserting the text from Excel. This copies the cell and pastes its contents with formatting into the newly created blank paragraph
'Insert Disclaimer after Section Break
.Range(mySect.Range.End - 1).InsertAfter tbl_disclaimer.ListColumns(1).Range.Rows(1).Value
mySect.Range.Paragraphs(mySect.Range.Paragraphs.Count).Range.Style = -4 'wdStyleHeading3 = -4
.Range(mySect.Range.End - 1).InsertParagraphAfter
mySect.Range.Paragraphs(mySect.Range.Paragraphs.Count).Range.Style = -1 'wdStyleNormal = -1
For n = 1 To tbl_disclaimer.ListRows.Count
' copy the cell
tbl_disclaimer.ListColumns(1).DataBodyRange.Rows(n).Copy
.Range(mySect.Range.End - 1).InsertAfter ""
' paste the cell contents including the text formatting
.Range(mySect.Range.End - 1).PasteSpecial DataType:=1 'wdPasteRTF
.Range(mySect.Range.End - 1).InsertParagraphAfter
Next n
Bookmarks