Hi devcon,

Welcome to ExcelFox !!

try

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