Macro - Workbook change for columns and value in one constant column

[katy6228]

I would like to set up a macro to record the modified date in column "AU" if any change in column "A:AT"
I am using the below VBA code to proceed but the modified date keep moving to right when I updating the column.
May I have the advice to fix the modified date in column "AU"? Thank you!

For Example:
Changed in column A -> value modified date in column AU
Changed in column B -> value modified date in column AV
Changed in column C -> value modified date in column AW

Private Sub Worksheet_Change(ByVal target As Range)
    
    Application.EnableEvents = False
    Dim sourcecolumn As Range
    Dim cell As Range
    Set sourcecolumn = Intersect(target, Range("A:AT"))
    
    If Not sourcecolumn Is Nothing Then
        For Each cell In sourcecolumn
            cell(1, "AU").Value = Now()
        Next cell
    End If
    
    Application.EnableEvents = True

End Sub

 

[mumps]

Try:

cells(1, "AU").Value = Now()

 

[Fluff]

How about

Cells(cell.Row, "AU").Value = Now()