Guru do Excel e Power BI

Necessito copiar a fórmula da célula “S3” até a célula "S1048576" da planilha em anexo, para tanto fiz a seguinte macro (sou iniciante):
Sub copia()
Range("S3").Select
Selection.Copy
Range("S1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Porém ela (macro) está funcionando da seguinte forma: ao clicar no botão “Botão 2”, copia a fórmula da célula de cima, no caso a da célula “S3” e com isso Eu tenho que clicar umas dezenas de vezes para atingir o resultado esperado.
RESULTADO ESPERADO: que ao se clicar no botão “copiar”, possa copiar a fórmula inserida na célula “S3” até a célula “S1048576”

Atenciosamente

Bom dia, acho que o código que você precisa é:
Só avalie melhor a real necessidade de colocar fórmulas em todas as linhas de uma planilha, você está só começando, então dê uma olhada em Criar Tabela para ter um controle melhor sobre a sua range de dados.

Show!