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] 

Private Sub Worksheet_Change(ByVal Target As Range)   
If Target = Range("A1") And Not Ch Then   
Ch = True   
Range("C2").Value = Range("C3").Value   
Range("C3").Value = Range("C4").Value   
Range("C4").Value = Range("A1").Value   
Ch = False   
End If   
  
End Sub