Macro que copie e cole de forma seguencial sempre que solicitada

[Rafael Morine]

Olá pessoal, quero fazer uma macro no Excel que copie a formula de uma determinada célula e cole na célula seguinte sempre que executada.

Exemplo: copie a formula da célula A1 e cole na célula A2, quando executada novamente copie a formula da célula A1 e cole na A3 e assim sucessivamente até a célula A31.

Obrigado

[CasaDoHardware]

Ve se ajuda

 

Cole em um modulo e associe a um botao

 

 

Sub CopiaFormula()

Range("A1048576").End(xlUp).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False

End Sub

[Rafael Morine]

Esta copiando uma única vez, ela copia a célula A1 e esta indo direto para a célula A5