Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Range("A1").Value > 5 Then
Range("B1:B5").ClearContents
Range("A1").Value = 0
End If
End If
End Sub