VBA To Pass A Variable In An Excel Formula

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.

Hi devcon,

Welcome to ExcelFox !!

try

Code:

---

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

---

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

Code:

---

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

---

Like this

Code:

---

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

---

Thank you, excellent.
Have a nice evening.