EXCEL: Copy value certain amount of times down column

Sub FillDown()
n = InputBox("Enter number of times to copy")
Selection.Copy
For i = 1 To n
  Selection.Offset(Selection.Rows.Count, 0).Select
  ActiveSheet.Paste
  Next i
End Sub