VBA – Search and replace with increment number

If your values are in ColA (from A2 down), then in B2 put:

=A2 & "_" & RIGHT("000" & COUNTIF(A$2:A2,A2), 3)

and fill down.