Lo que tenes que hacer es usar la funcion CSTR() para convertir un numero en un string. Por ejemplo:
Cita: N = 12
For Cont = 4 to N
Range("A" & Cstr(N)).Value = "Valor " & N
Next
El codigo repite 9 veces la instruccion que pone valore sen A4, A5... hasta A12.