If the CCs are mapped to the same xml node then you can change one of the CCs to change them all. Alternatively, you can modify the code to replace the text in every instance of the CC with that title
Code:
Public Sub FillCC(strCCTitle As String, strValue As String)
Dim aCC as ContentControl
For each aCC in ActiveDocument.SelectContentControlsByTitle(strCCTitle)
aCC.Range.Text = strValue
Next aCC
lbl_Exit:
Exit Sub
End Sub