Option Explicit

Private Sub workbook_open()
  SetAA
End Sub

check = c.Row > UBound(AA)

Private Sub Worksheet_Change(ByVal Target As Range)

check = c.Row > UBound(AA)

Worksheet_Change

Public Function chislo()
chislo = Now()
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lReply As Long
 If Target.Cells.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("P2:P4999,Q4:Q4999")) Is Nothing Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Range("Игроки_клуба"), Target) = 0 Then
          lReply = MsgBox("Добавить введенное имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Range("Игроки_клуба").Cells(Range("Игроки_клуба").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
End Sub

=ЕСЛИ(A=B;СЕГОДНЯ();" ")

=ЕСЛИ(ЕПУСТО($P4);"";СЧЁТЗ($I$4:$I4))

Private Sub Worksheet_Calculate()

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target
 If Not Intersect(Cell, Range("C4:C1000")) Is Nothing Then
  With Range("E" & Cell.Row)
     .Value = Now
     .EntireColumn.AutoFit
     End With
    End If
   Next Cell
End Sub