Excel excel vba copia e cola

[matrot]

sou leigo em vba preciso de um codigo vba que faça a seguinte função

 

irei adicinar esse vba a um botao que estará visivel na tabela

 

codigo:

- preciso copiar o valor de uma celula especifica (sempre vai ser essa celula, ou seja o lugar de copiar sempre vai ser o mesmo)

- o preblema vem na hora de colar porque ele precisa colar na celula que estiver selecionada na hora que o botao foi clicado

 

ex1:

- selecionou a celula B3

- clicou no botao

-macro vai copiar o valor da celula A1 e colar na B3 ( celula selecionada)

ex2:

- selecionou a celula G4

- clicou no botao

-macro vai copiar o valor da celula A1 e colar na G4 ( celula selecionada)

[Muca Costa]

Veja se ajuda...

 

Sub Copiar()
Dim Cel As String
    Cel = ActiveCell.Address
    Range(Cel).Value = Range("A1").Value
End Sub