Sub Test()
With Worksheets("Лист1") 'Измените названия листа на нужный
        Set Rng = .Range("E8:E10") 'задайте тут свой диапазон

        For Each n In Rng
            If n = "" Or n = 0 Then
           n.Value = "-"
                                      
            End If
                    Next n
    End With
End Sub

Sub Test()
    With Worksheets("Лист1") 'Измените названия листа на нужный
        'Set Rng = .Range("E8:E10") 'Если надо задать диапазон
        For Each n In Selection 'задайте Rng вместо Selection  если нужно выполнять в фиксированном диапазоне
            If n = "" Or n = 0 Then
            n.Value = "-"
        End If
      Next n
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:D10")) Is Nothing Then
        Application.EnableEvents = False
        If Target = 0 Then Target = "-"
    End If
    Application.EnableEvents = True
End Sub