Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim new_value
    Dim r As Range
    Select Case Sh.Name
        Case "Лист1"
            Set r = Application.Intersect(Target, Range("Лист1!$A1:$A100"))
        Case Else
            Set r = Nothing
    End Select
    If r Is Nothing Then Exit Sub
    If Target.Rows.Count * Target.Columns.Count > 1 Then
        Application.Undo
        Exit Sub
    End If
    
    new_value = Target.Value
    Application.EnableEvents = False
    Application.Undo
    If Len(Target.Value) = 0 Then
        Target.Value = new_value
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Calculate
  
  End Sub

 

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C4:C21").Copy
    Range("F4:F21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub