scrivere un testo su piu celle

[Ale75]

scusate la domanda banale, ma non trovo la risposta.
sto sviluppano una macro e vorrei scivere un testo (lo stesso testo) su una serie di celle continue

l'unico modo trovato è questo, ma scrivo solo su una cella (io vorrei che la parola Pippo fosse ripetuta su tutte le celle della selezione)
ActiveCell.FormulaR1C1 = "Pippo"

avete qualche suggeriemnto?

grazie e scusate la banalità

[Marius44]

Ciao
Premesso che è sempre meglio allegare il proprio file, prova così:

Codice: Seleziona tutto

Sub copia_incolla()
nome = Cells(1, 3).Value
Range("A1:A5") = nome
End Sub


Ciao,
Mario