Copiar resultado

Boa noite a todos
Estou com um probleminha, tenho um planilha, na célula A1 está a fórmula HOJE(), esta que vai atualizando os dias automaticamente.
Preciso de uma fórmula ou outra coisa que copie apenas o resultado automaticamente da célula A1.
Se tiver irei usá-la com a fórmula SE, para que ao digitar na célula B2 a data copia automaticamente.

Boa noite!!

Somente por intermédio de VBA....tipo..

Código:

Sub AleVBA_849()
With Sheets("Plan1")
    .Range("A1").Copy Destination:=Sheets("Plan1").Range("B" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

Att

Boa noite!!

Somente por intermédio de VBA....tipo..

Código:

Sub AleVBA_849()
With Sheets("Plan1")
    .Range("A1").Copy Destination:=Sheets("Plan1").Range("B" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

Att

Boa noite agradeço pela ajuda.
Poderia mandar a planilha para você colocar o código por gentileza?

Bom dia!!

Com o excel aberto, aperte as teclas, Alt+F11, depois aperte Alt+I+M, cole o código dentro do módulo!!

Para mais leia:
http://www.ambienteoffice.com.br/officevba/modulos_em_vba/

Att