Yes it seems that it is my fault
I am very sorry as I didn't copy all the code .. I just copied these parts only
     A = Round(Range("d10").Value, 2)
     B = Round(Range("e10").Value, 2)
     C = Round(Range("f10").Value, 2)
     
    If A > 0 And B > 0 And C > 0 And A = Int(A) And B = Int(B) And C = Int(C) Then
and I didn't pay attention to the other modifications in the code
Generally now it is perfect for me
Thanks a lot for help
Thank you very much. you saved me

Best and kind regards