Range.FillUp (Excel)

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

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