' VBA Custom formula for round up
Function RoundUp(ByVal Value As Double) As Integer
    If Int(Value) = Value Then
        RoundUp = Value
    Else
        RoundUp = Int(Value) + 1
    End If
End Function