If you are only going to do it once, and just don't want to type something multiple times, I suggest using auto-fill instead of any vb code.
To Enter the same data into several cells at once:
1. Select the cells where you want to enter data. The cells do not have to be adjacent.
2. Type the data and press CTRL+ENTER.
Hope this is helpful.
Bill