Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C3:F3]) Is Nothing Then
     Application.EnableEvents = False
     If Left(Target, 1) Like "[А-Яа-я Ёё]" Then
         Target = UCase(Target)
     ElseIf Target = "" Then
     Else
         MsgBox "только буквы А-Я"
         Target.Activate: Target = ""
     End If
     Application.EnableEvents = True
ElseIf Not Intersect(Target, [C4:F6]) Is Nothing Then
     Application.EnableEvents = False
     IsNum = Application.WorksheetFunction.IsNumber(Target)
     If Not IsNum Then If Target.Value <> "рем" Then If Target.Value <> "" Then _
                     MsgBox "только числа или 'рем'": Target.Activate: Target = ""
     Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set rng1 = [C3:F3]
  For Each cell In rng1
  If cell = "" Then Cancel = True: MsgBox "Заполните данные в [C3:F3]": Exit For
  Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set rng1 = [C3:F3] '(МОЖНО ЛИ ЗДЕСЬ ЗАДАТЬ ТОЛЬКО ОДНУ ЯЧЕЙКУ, НО ТАК ЧТОБЫ ОНА МЕНЯЛАСЬ НА СЛЕДУЮЩЕЮ ПРИ КАЖДОМ ОТКРЫТИИ ФАЙЛА)
For Each cell In rng1
If cell = "" Then Cancel = True: MsgBox "Заполните данные в [C3:F3]": Exit For
Next
End Sub