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

Hi, I am new to this Forum and also in writing Macros.

So, I have managed to write this Macro to copy the value of J2 to K2 and subsequently to L2..M2..N2... where the updated value of J2 is being recorded in subsequent cells at 1 minute's interval.

Sub MntCalculate()
lc = Cells(2, Columns.Count).End(xlToLeft).Column + 1
If lc < 11 Then lc = 11
For i = 0 To 0
Cells(i + 2, lc) = Range("J2")
Next i
Application.OnTime Now + TimeValue("00:01:00"), "Sheet1.MntCalculate"
End Sub

My question is, how do I now modify this Macro to also copy the values of J3 to K3..L3..M3..N3.. and J4 to K4..L4..M4..N4... upto J218 to K218..L218..M218..N218... ?

Thanks.