Event generated with a mouse-click

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim counter As Byte
    
    If Target.Count = 1 Then
    
        If Not Intersect(Target, Range("B5:C25")) Is Nothing Then
        
            counter = Application.Count(Range("E5:E10"))
            
            If Target.Font.ColorIndex <> 3 Then
            
                If counter < 6 Then
                
                    Range("E5").Offset(counter).Value = Target.Value
                    Target.Font.ColorIndex = 3
                    
                    Range("E5:E10").Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, _
                                    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                                    DataOption1:=xlSortNormal
                End If
                
            Else
                Target.Font.ColorIndex = xlAutomatic
                
                On Error Resume Next
                    Range("E5:E10").Find(Target.Value, Lookat:=xlWhole).ClearContents
                On Error GoTo 0
                
                Range("E5:E10").Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, _
                                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                                DataOption1:=xlSortNormal
                
            End If
        End If
    End If
    
End Sub