How can I copy the first row before each other row in Excel?

[Michael George]

Hello,

Would you help me,Please? I would like to do the following:

I would like to copy row 1 before row 2 , row 3 ... and so on.
So that when I print the sheet and cut the paper, Mark will see the first raw and his own data and he is not allowed to see the data of other persons.
Also, each person will see the first raw and their own data only.

I know I can copy the first raw manually but this would be very hard in case of too many persons. I need an automatic way to copy the first raw before each other row.

Thank you very much,

 

[Michael M]

Try

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 3 To lr + 2 Step 2
    Rows(1).Copy
    Rows(r).Insert
Next r
End Sub

 

[Michael George]

@Michael M

Thank you very much for your useful answer and the code is amazing... It is really helpful. You're wonderful.

 

[Michael M]

Glad to help...