Autocopy formula to cells

[Guest]

Can some one tell me whats wrong with this vb code.
As data is entered in cells "A11:G11". Formulas from cells "I10:L10" are
copied and pasted to cells below. In this case"I11:L11". and so on.

 

[Guest]

Sorry ....silly me. Here is the code

tr=target.row
if target.column<>1 then exit sub
range(cells(tr-1,"i"),cells(tr-1,"l")).copy cells(tr,"i")