Good day,

I need to input discount to use as calculation.

Code:
  Dim Disc As Variant
                
        Disc = InputBox("Enter the value.")
        If Disc = "" Then Exit Sub
         
        LastRow = Cells(Rows.Count, "F").End(xlUp).Row
        Range("F" & LastRow + 1).Formula = "=sum(F3:F" & LastRow & ") * Disc/100"
Thank you in advance.