disponibilize o arquivo com mais explicações de onde esta e para onde vai a informação

Boa noite MPrudencia
Segue em anexo. Queria que a célula B6 da planilha Lista ao ser alterada transporta-se o valor para a planilha Folha1 A2 e seguintes.
Abr.
Rui

Pode ser assim?

Está a funcionar, mas transporta os valores todos e não só o conteúdo da célula B6, e se o valor desta célula não se alterar não seja possível inscreve-lo da plan Folha1. Obrigado.

Boa noite
Consegui resolver com a seguinte macro:

Sub copia_valor_celula()
    Dim w2 As Worksheet, w1 As Worksheet, last As Long, rng As Range
    
    Set w1 = Worksheets("Lista")
    Set w2 = Worksheets("Folha1")
    
    With w1
        last = .Range("$B$6").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

        Set rng = w1.Range(.Cells(6, 1), .Cells(last, 1))
        For Each c In rng
        
            With w2

                last = .Range("A:A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                
                .Cells(last + 1, 1).Value = w1.Cells(6, 2).Value
            End With
        Next
    End With

End Sub