Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Count > 1 Then Exit Sub
    Range("C6:C14").Interior.ColorIndex = xlNone
    If Not Application.Intersect(Range("C2:D2"), Target) Is Nothing Then
        tic_ = Target.Interior.Color
        If Target.Address(0, 0) = "C2" Then
            Range("C10,C11,C14").Interior.Color = tic_
        Else
            Range("C6,C12").Interior.Color = tic_
        End If
    End If
End Sub

=ИНДЕКС(Лист1!F:F;СТРОКА())&""

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Exi
    If Target(1).MergeArea(1).Validation.Type = 3 Then
        SendKeys "%{down}"
    End If
Exi:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Exi
    If Target(1).MergeArea.Validation.Type = 3 Then
        SendKeys "%{down}"
    End If
Exi:
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not IsDate(Cells(1, 1)) Then
        Cancel = True
        MsgBox "Заполни дату"
    End If
End Sub