Create a combine macro with specidic functions

Hi all,
I`m trying to create a macro which will help me to save time at my work place.

The codes that I wrote so far are:

1. Insert rows based on specific value

Please Login or Register  to view this content.

The problems here are:

a) When I have value in range(r) = 0 the macro stops.
What i want is, when I have value in this range 0 to skip inserting row below it.
b) the information that is copying in the rows below the main row sholud be the same like the information in the main row.

2.Transfer data

Please Login or Register  to view this content.

3.Delete rows and transfer data

Please Login or Register  to view this content.

So there is another question. Is it possible to combine all of these 3 macros in 1.

I tried to do it with macro datatrans and delete rows but:

Please Login or Register  to view this content.

this part of the macro did not work.


If someone help me to do what I want.

Thank you in advance

Here is my example:

Not maybe..

It is working

Thank u LeoTaxi.

What about if I want to combine all the macros that I have in one?