Sit.Range("D2:G58").Activate
    For Each celija In Sit.Cells.Range("D2:G58")
    R = celija.Address
    If IsNumeric(celija.Value) = True Then
    If celija.Value > 0 Then
       celija.Font.Bold = True
       celija.Font.Color = 255
    Else
      celija.Font.Bold = False
      celija.Font.Color = 0
    End If
    End If
    Next celija
    Sit.Range("D2:G58").NumberFormat = "0.00"