Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  
  ' Если изменения произошли не на Листе1, то ничего не делать
  If Sh.Name <> Лист1.Name Then Exit Sub
  
  ' Если изменения произошли не в [B2], то ничего не делать
  If Target.Address <> [B1].Address Then Exit Sub
    
  ' ===== Записать историю изменения значений ячейки [B2] =====
   Dim rng As Range, СтрокаДляЗаписи As Range
  ' Задать диапазон таблицы данных
  Set rng = [A3].CurrentRegion
  ' Отпределить последнюю строку для записи
  Set СтрокаДляЗаписи = rng.Rows(1).Offset(rng.Rows.Count).Cells
  ' Добавить в конец дату+время и значение
  СтрокаДляЗаписи(1, 1) = Now
  СтрокаДляЗаписи(1, 2) = Target
  ' Переопределить именованный диапазон [БД]
  Sh.Names.Add Name:="БД", RefersTo:="=" & rng.CurrentRegion.Address
  ' Переопределить диапазон данных диаграммы
  Sh.ChartObjects(1).Chart.SetSourceData Source:=Sh.Range("БД")
  End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
  ' Если изменения произошли не на Листе1, то ничего не делать
  If Sh.Name <> Лист1.Name Then Exit Sub
   
  ' Если изменения произошли не в [B2], то ничего не делать
  If Not (Target.Address = [B1].Address Or Target.Address = [D1].Address Or Target.Address = [C1].Address) Then Exit Sub
     
  ' ===== Записать историю изменения значений ячейки [B2] =====
   Dim rng As Range, СтрокаДляЗаписи As Range
  ' Задать диапазон таблицы данных
  Set rng = [A3].CurrentRegion
  ' Отпределить последнюю строку для записи
  Set СтрокаДляЗаписи = rng.Rows(1).Offset(rng.Rows.Count).Cells
  ' Добавить в конец дату+время и значение
  СтрокаДляЗаписи(1, 1) = Now
  СтрокаДляЗаписи(1, 2).Resize(, 3).Value = Range("$B$1:$D$1").Value
  ' Переопределить именованный диапазон [БД]
  Sh.Names.Add Name:="БД", RefersTo:="=" & rng.CurrentRegion.Address
  ' Переопределить диапазон данных диаграммы
  Sh.ChartObjects(1).Chart.SetSourceData Source:=Sh.Range("БД")
  End Sub

Option Explicit
Private Sub Worksheet_Calculate()
Dim rng_history As Range, c_rows As Byte, cnt As Byte, tmp
   If Len([A2].Value) = 0 Then Exit Sub
   Application.EnableEvents = False
   Set rng_history = [B2:B11]
   c_rows = rng_history.Rows.Count
   On Error Resume Next
   cnt = rng_history.SpecialCells(xlCellTypeConstants).Count
   On Error GoTo 0
   If cnt = 0 Then
       rng_history.Resize(1).Value = [A2].Value
   Else
       tmp = rng_history.Resize(1).Offset(-1).End(xlDown).Value
       If [A2].Value <> tmp Then
           If c_rows = cnt Then rng_history.Resize(1).Delete shift:=xlShiftUp
           rng_history.Resize(1).Offset(-1).End(xlDown).Offset(1).Value = [A2].Value
       End If
   End If
   Application.EnableEvents = True
End Sub

 Set rng_history = [B2:B11] 

Set rng_history = [B2:B1000]