Range.FillDown (Excel)

Rellena hacia abajo desde la celda o celdas superiores del rango especificado hasta el final del rango.

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