Range.FillDown (Excel)

Preenche desde a célula ou células superiores do intervalo especificado até as inferiores. O conteúdo e a formatação da célula ou células da linha superior de um intervalo são copiados para o restante das linhas do intervalo.

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