Range.FillUp (Excel)

Preenche acima a partir da célula ou células de baixo no intervalo especificado até o topo do intervalo. O conteúdo e formatação da célula ou células da linha inferior de um intervalo são copiados para o restante das linhas do intervalo.

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