Macro for copying the value of one Cell to another cell(s) in specific time interval

[mdmackillop]

Sub MntCalculate()
    lc = Cells(2, Columns.Count).End(xlToLeft).Column + 1
    If lc < 11 Then lc = 11
    lr = Cells(Rows.Count, 10).End(xlUp).Row - 1
    With Cells(2, lc).Resize(lr)
        .FormulaR1C1 = "=RC10"
        .Value = .Value
    End With
    Application.OnTime Now + TimeValue("00:01:00"), "Sheet1.MntCalculate"
End Sub