Tak sem si to přečet ještě jednou a pořádně. Hodnoty vkládáš do sloupce B a do sloupce A chceš datum změny

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = "2" Then
      With Cells(Target.Row, Target.Column - 1)
        .Value = Now
        .EntireColumn.AutoFit
      End With
    End If
End Sub