Insert rows in several tables : how to speed up ?

Hello

I have 8 tables and would like to do a macro to add a ligne in each table.
So I write this :

Please Login or Register  to view this content.

This works well but it's a little bit slow.
I tried to do Rows(RowModc + 1).formula = Rows(RowModc).formula but it's slower (it looks strange to me...).
I also tried to put Calculation on "Manual" but it doesn't do anything.

Do you have any ideas to speed up that code please ?

Is it optimized enough ?
it takes 0,6 seconds at first but more than 1 sec when I action the macro more than 15 times ! how can i fix that and speed up things please ?