Não há necessidade de uma macro:
=A1 & RANDBETWEEN(0;9) & RANDBETWEEN(0;9)
SevocêrealmentequiserfazerissonoVBA,façaumaiteraçãonascélulascomoseguinte(aquielesóolhaparaA1):
Range("A1") = Range("A1") & Int((9 - 1 + 1) * Rnd + 1) & Int((9 - 1 + 1) * Rnd + 1)