Arfas

Olá, boa noite. Gostaria que alguém pudesse me ajudar com uma aplicação em VBA e abaixo descrevo o evento. Uma vez na Sheet1, a célula A1 receberá um valor qualquer, seja numérico ou alfabético, e ao dar enter a caixa de seleção do Excel selecionará a célula A2 abaixo e A1 receberá o valor. Esse valor será copiado para a célula A1 na Sheet2 mediante a fórmula "=Sheet1!A1" (célula A1 na Sheet2 recebe o valor de A1 da Sheet1). Em seguida inicio uma gravação de Macro. Estando na Sheet1, seleciono a Sheet2, copio o valor de A1 e colo como valor em A2 e desloco a célula para baixo mediante shift cells down (deslocar células para baixo). Por fim, seleciono a Sheet1 novamente, nela a célula A1 e clico em Delete para limpar o valor registrado e termino minha Macro. Abaixo está o script gerado pelo VBA: Sub Macro1() Sheets("Sheet2").Select Selection.Copy Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Sheet1").Select Range("A1").Select Selection.ClearContents End Sub O que eu quero é gerar um script para que quando o valor da célula A1 da Sheet1 receba outro valor, seja numérico ou alfabético, a macro seja disparada, registrando os diversos e diferentes valores na Sheet2. Já tentei scrips que encontrei em outros forums e nada me funcionou. A única possibilidade que me funcionou até o momento é associar esta Macro a um botão e a cada valor recebido na célula A1 da Sheet1, clico sobre o botão para que a dispare a Macro e assim formar esses registros. Muito obrigado.