something like

Dim lr As Long
lr = Cells(Rows.Count,"CA").End(xlUp).Row
Range("CB2:CB" & lr).Formula = =LEFT(CA2,15)
Range("CC2:CC" & lr).Formula = =CB2&COUNTIF($CB$2:CB2,CB2)