Eğer yanlış anlamadıysam sayfa1 b sütununda bir değişiklik yaptığınızda a sütununa tarih yazmak istiyorsunuz.
Sayfa1 Kod kaynağına aşağıdaki kodu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo son

If Intersect(Target, [b:b]) Is Nothing Then Exit Sub

Cells(ActiveCell.Row - 1, "a") = Now

son:

End Sub