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")

--
ASU


"ASU" wrote:

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.
--
ASU