Range.FillDown (Excel)

Fills down from the top cell or cells in the specified range to the bottom of the range. The contents and formatting of the cell or cells in the top row of a range are copied into the rest of the rows in the range.

Worksheets("Sheet1").Range("A1:A10").FillDown