'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
 If Not Intersect(Target, Range("A6:A1000" ;) ) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
 Target.Font.Name = "Marlett" 'Назначаем ячейке шрифт
 If Target = vbNullString Then 'Если ячейка пуста, то
 Target = "a" 'заполняем её символом "а" (латиница)
 Else 'Иначе
 Target = vbNullString 'в ячейке пусто
 End If
 Target.Offset(0, 1).Activate '"отскакиваем" вправо на один столбец
 End If
End Sub

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
 Dim Sum As Double
 Application.Volatile True
 For Each cell In DataRange
 If cell.Interior.Color = ColorSample.Interior.Color Then
 Sum = Sum + 1
 End If
 Next cell
 SumByColor = Sum
 End Function