LastRow = Range("A1").End(xlDown).Row
Cells(LastRow, "A").Resize(NumRows, 2).Copy Cells(LastRow + 1, "A")
Cells(LastRow, "G").Resize(NumRows, 2).Copy Cells(LastRow + 1, "G")
--
__________________________________
HTH
Bob
"Helmut" <(E-Mail Removed)> wrote in message
news

E19452A-B93A-4230-B24F-(E-Mail Removed)...
>I am working on an order form. I have a list of items from a catalogue. So
> far so good. Now when a person ADDs NEW ITEMS at the bottom of the list, I
> need to copy some cells for as many rows as NEW ITEMS were added.
>
> i.e. let's say there are 10rows with catalogue items, and there are two
> new
> items added in column "C", then I have to copy "A and B 10" to "A and B 11
> and 12" as well as "G and H 10" to "G and H 11 and 12".
>
> HELP for the code.
> thanks