Takže pre opätovné automatické nastavenie defaultnej hodnoty... makro... sledujúce zmenu hárka.
Zmaž všetky vzorce a do modulu hárka vlož:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AktOblA As Range
Set AktOblA = Range("A3:A27")

    If Application.Intersect(Target, AktOblA) Is Nothing Then Exit Sub
    
    If Target = "" Then
        Range("C" & Target.Row) = ""
        Else
        Range("C" & Target.Row) = "jedna"
    End If

End Sub

Pozor, nefunguje pre hromadné zapisovanie, či mazanie.
Platí pre deklarovanú oblasť (podľa príkladu), takže v skutočnom súbore budeš musieť upraviť definovanie oblasti AktOblA