Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AU4:KE57")) Is Nothing Then
If Target = 1 Then
Target.Interior.Color = Cells(Target.Row, 1).Interior.Color
Else
Target.Interior.Color = Cells(3, Target.Column).Interior.Color
End If
End If
End Sub