Necesito macro para reemplazar el valor 0

Te anexo 2 propuestas de macros:

Sub MacroA()
'Por.Dante Amor
    [F5:H10].Replace What:="0", Replacement:="1", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Otra opción

Sub MacroB()
'Por.Dante Amor
    For Each c In [F5:H10]
        If c = 0 And c <> "" Then c.Value = 1
    Next
End Sub

Cambia en las macro [F5:H10] por el rango de celdas que vayas a ocupar.