Pls try
Set para = curRow.Range.Paragraphs(curRow.Range.Paragraphs.Count - 1)
para.Range.ListFormat.RemoveNumbers
para.Range.Characters.Last.Previous.Delete ' ** add ** '
Microsoft documentation:
Please share your table layout with sample text if it doesn't work on your file.