Repeat and automatically copy row to new row

venkat1926

your code is giving me error on line 4. Its says run-time error '6'. Overflow.

j = Range("a1").End(xlDown).Row



pike
your code is working well.

Thanks for you kind support.

I am attaching one more file.
can you people help me with that file pls?

Thanks in advance to all of you. Really this will be very very helpful to me.