Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim ce1l As Range
Dim cRd As Integer
Dim cCd As Integer

If Intersect(Target, Range("B5:AA500")) Is Nothing Then Exit Sub

For Each cell In Intersect(Target, Range("B5:AA500"))

On Error Resume Next

cRd = cell.Row
cCd = cell.Column
Cells(cRd, 29) = Format(Now, "DD.MM.YYYY hh:mm:ss")
Cells(cRd, 29).Value = Now
Cells(cRd, 29).Columns.AutoFit
Cells(cRd, cCd).Font.Color = vbRed

Next cell

End Sub

интересует вероятная стоимость!