VBA preenchendo celulas. como?

Question

Bom dia

tenho uma planilha, gostaria de fazer em vba Excel o seguinte:

Informar um valor numa célula (em amarelo)  e pegar o valor informado e ir preenchendo uma coluna (em azul), colocando um valor embaixo do outro.

como na imagem, como fazer?

Ja tentei usando o evento change e calculate, mas não muda de linha, o valor sempre fica na mesma linha (na coluna azul)

Exemplo de como quero o resultado: informo na célula amarela e adiciona na coluna azul. (as cores são apenas para identificação)

---

Anderson

Answer 1

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$F$4" Or Target.Address = "$G$3" Then
Dim linha As Long
linha = 3
While ThisWorkbook.Sheets("Planilha1").Range("H" & linha) <> ""


linha = linha + 1

Wend

ThisWorkbook.Sheets("Planilha1").Range("H" & linha).Value = Range("$F$3").Value

End If

End Sub

---

Anderson Diniz

Answer 2

https://drive.google.com/file/d/0B5y9tcyfn9D3QkdOQ1dnUmZ5UnM/view?usp=sharing

---

Anderson Diniz

Answer 3

DIGITE O VALOR NA F3, APERTE ENTER OU TAB. APARECERÁ O VALOR NA COLUNA H.

---

Anderson Diniz