Boa tarde!!

Sua explicação está confusa, em sua guia "Plan2" tem dados em A2 e B2 (não em A2)

1- Na plan.2, temos as informações na celulas a1, e a2. Essas células são alimentadas automaticamente sempre na mesma posição(célula a1 e a2), e essas informação são alteradas a cada momento, muito rápido.

, eu não vi macros e dados externos!!!

tu pretende copiar A1:B1, para Plan1 sobrepondo um dado em baixo do outro?

Att

Boa tarde!

Caso sim!!!

Tente

Sub AleVBA_14106()
    Sheet2.Range("A1:B1").Copy Sheet1.Range("A65536").end(xlup)(2)
End Sub

Att

Isso mesmo. Contudo, teria que fazer um loop a cada mudança na celula a1 plan.2, Esse valor irá mudar atraves de uma formula,

Abs.

Boa tarde!!

Eu preciso de mais detalhe, esse código pega o intervalo "A1:B1" (caso mude os dados ou não) e copia em baixo de cada linha da outra guia.

Att

Oi Alexandre, tudo bem? Esse código que vc passou, esta certo. Contudo, gostaria de incluir um loop, onde pra cada atualização das (a1:b1), ativa o código que vc passou. isso é;
1-Essa alteração que temos nas células (a1:b1), é feito automático, através de uma fórmula, não tendo nenhum procedimento manual, como teclar o Enter.
2-São dezenas de altearações que acontecem, muito rápido, e o código deveria pegar os dados, sem perder algum pulo, devido a algum delay.

Entendeu? Será que tem como fazer esse processo?

Muito Obrigado pela ajuda..

Bom dia!!

Dentro do Módulo de planilha, insira o código aabixo.

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
        Sheet2.Range("A1:B1").Copy Sheet1.Range("A65536").End(xlUp)(2)
    Application.EnableEvents = True
End Sub

Att