Range.FillUp (Excel)

Rellena hacia arriba desde la celda o celdas inferiores del rango especificado hasta el principio del rango.

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