Spustíš makro:Sub Macro1() Range("A1").Value = Range("A1").Value - (Range("A1").Value * Range("A6").Value) End Sub