Private Sub Worksheet_Change(ByVal Target As Range)

Dim rrow As Integer, ccol As Integer, date_n As Date

   rrow = Target.Row
   ccol = Target.Column
   date_n = Target.Value

End Sub

date_n = Target.Value

Dim vPastValue As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    vPastValue = Target.Cells( 1 ,  1 ).Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rrow As Integer, ccol As Integer       ' переменные для номера строки и номера столбца
Dim vNewValue As Variant                        ' переменная для нового значения ячейки 

rrow = Target.Row                                  ' получаем номер строки, в которой нах-ся изменяемая ячейка
ccol = Target.Column                              '  получаем номер столбца, в котором нах-ся изменяемая ячейка

' если была изменена ячейка А1 на листе, то выводим старое и новое значения в сообщении:
If ccol =  1  and rrow= 1  then

vNewValue = Target.Cells( 1 ,  1 ).Value    ' получаем новое изменённое значение ячейки
MsgBox vPastValue & Chr( 13 ) & vNewValue ' выводим старое значение и новое

end if

End Sub