Excel: Como coletar dados de uma única célula e colocá-los em uma tabela?

Question

Tenho uma macro que faz alguns cálculos e depois produz um resultado que aparece em uma única célula. Quando executo a macro novamente ela produz outro resultado na mesma célula e assim por diante. Desejo copiar os dados dessa célula e colocá-los em uma tabela, digamos na célula B1. E então o próximo resultado na célula C1. E assim por diante até que eu tenha uma tabela de dados.

Existe uma maneira simples de fazer isso?

E eu poderia executar a macro (digamos) 100 vezes e cada vez copiar os dados para a tabela conforme descrito acima?

Obrigado!

Answer 1

Aqui está um exemplo de macro super simples:

Sub MaintainHistory()
    Dim s As String, n As Long, v As Variant
    v = Rnd()
    Range("A1") = v
    If Range("B1") = "" Then
        Range("B1") = v
    Else
        n = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & n) = v
    End If
End Sub