VBA To Pass A Variable In An Excel Formula

[devcon]

Good day,

I need to input discount to use as calculation.

  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.

[Admin]

Hi devcon,

Welcome to ExcelFox !!

try

Range("F" & LastRow + 1).Formula = "=sum(F3:F" & LastRow & ") *" & Disc & "/100"

[devcon]

Thank you very much.
Could you tell me also how to use:

ActiveCell.FormulaR1C1 = "=CONCATENATE(""Discount"","" "",Disc,""%"")"

[Admin]

Like this

ActiveCell.FormulaR1C1 = "=CONCATENATE(""Discount"","" ""," & Disc & ",""%"")"

[devcon]

Thank you, excellent.
Have a nice evening.