Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 1 Then Exit Sub
End With
Dim cel As Range, vx&
vx = WorksheetFunction.Max(Columns(1)): If vx = 0 Then Exit Sub
Set cel = Columns(1).Find(vx, , -4163, 1, 1)
Application.ScreenUpdating = 0: Cells.Interior.ColorIndex = -4142
Cells(cel.Row, 1).Resize(, 57).Interior.Color = 15773696
End Sub