Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        If .Count < 3 Then Call CC(Target)
        If .Count < 3 Then Exit Sub
            On Error Resume Next
            If CDate(.Value) Then
                Select Case .Column
                Case 1
                        Call bb
                End Select
        End If
    End With
End Sub

Sub CC()(Target As Range)
Dim NewCellValue$, OldComment$
Dim cell As Range
 On Error Resume Next
    'если ячейка не в отслеживаемом диапазоне, то выходим
     If Intersect(Target, Range("K7,Q7,AF7")) Is Nothing Then Exit Sub

    'перебираем все ячейки в измененной области
    For Each cell In Intersect(Target, Range("K7,Q7,AF7"))

If Target.HasFormula = False Then cell.Comment.Delete
If Target.HasFormula = False Then Exit Sub

            NewCellValue = cell.Formula     'или ее содержимое

        With cell
            .Comment.Delete     'удаляем старое примечание (если было)
            .AddComment         'добавляем новое и вводим в него текст
            .Comment.Text Text:=NewCellValue

            .Comment.Shape.TextFrame.AutoSize = True    'делаем автоподбор размера
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
    Next cell
End Sub