Hi.
Can anyone fix this formula I have in the macros so that it can work properly?

This is the outcome I want the formula below to do: In the 2nd to last column, starting from the 18th row, I would like to multiply the 3rd to last column by the value in cell A1.

Dim lr As Long
Dim lc As Long

lr = ActiveSheet.UsedRange.Rows.Count - 2
lc = ActiveSheet.UsedRange.Columns.Count

Range(Cells(18, lc - 1), Cells(lr - 1, lc - 1)).Formula = "=(a1*"&Range(Cells(18, lc - 3), Cells(lr - 1, lc - 1))")"
Any help would be greatly appreciated.

Thank s in advance.