Macro Copy Active Cell to Range Name, loop

Thanks so much Ed.

One more question. Say I wanted to
1. copy the data from the active cell
2. select from the active cell to 3 rows down
3. move to the name box and paste the copied data, thus naming the
range what was in the initial active.cell

Thanks!!!!!