Fill set number of cells based on cell value

[HarveyDickinson]

Is there any way to use 'Fill' over a certain number of cells?
I mean, instead of selecting for instance, 21 cells and doing ctrl+d, could I just select the cell and get excel to fill 21 cells?
Even better, is there a way of filling a number of cells based on a value in a cell? For instance, if 15 is written in one cell, could excel be made to fill text over 15 cells?

Thanks,

Harvey

[jasocke2]

I did something similar a while ago where it fills down aslong as there is a value in the column to the left of it.

Sub Macro1()
Range("c1").Select
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Don't know if this will be of any use.

I have also attached a sample workbook.