Fill set number of cells based on cell value

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.