Hey guys I need help.

I need to replace a single cell in the first table of the document, and the cell contains text in bold and underline and the other half with no format. i'm currently using add and everything is in bold and underline but i can't seem to get it to clear the format for only half. this is my current code:

Sub ADD()
'
' ADD Macro
'
'
With ActiveDocument.Tables(1).Cell(1, 3).Range


.Text = "Precon Cycles 6"

End With

With ActiveDocument.Tables(1).Cell(2, 3).Range
.Text = "Precon Temp 260"

End With

I need to make the 6 non bold and underline while the rest is. How may i go about doing this?