Copiando de uma célula comformula para outra celula somente o valor

Pessoal boa tarde!!

eu preciso copiar de uma celula com formula, para outra, mas somente o valor a celula que vai receber o valor não pode apagar , assim quando eu mudar os valores da celula com a formula ela manda para a celula de baixo o novo valor.

==========A1 ==================D1
==resultado de calculo============ valor do reultado
resultado novo valor em A1========= D2 novo valor
e por ai vai...


caso alguem puder me ajudar agradeço dede já.
Weber

Boa noite!!

Insira dentro da planilha de código.

Código:

Private Sub Worksheet_Calculate()
    Dim prev As Range
    With Plan1
        Set prev = Range("A1")
        If prev.Range("A1").Value <> Me.Range("D1").Value Then
            Me.Range("D1").Value = prev.Value
        End If
    End With
End Sub

nao consegui o resultado que precisava , mas muito grato pela ajuda.

Boa noite!!

Então faça nos entender o que houve de errado!!



Att