macro insert row

[lealeadupont]

Good morning,
I need to write a macro to insert a new row between every second row ( the 10 rows of the employee). And empty row between employee 1 to employee 2 etc.
And I'm on a Mac !

thank youuu

 

[My Aswer Is This]

Assuming you have data in column 1
And assuming a MAC will run my code that works on a PC

Try this:

Sub Insert_Rows()
'Modified 2/1/2022  5:23:55 PM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

For i = Lastrow To 1 Step -1
Rows(i).Insert
Next
Application.ScreenUpdating = True
End Sub

 

[lealeadupont]

But when I'm trying to run this macro I have :
Invalid procedure call or argument

 

[lealeadupont]

Assuming you have data in column 1
And assuming a MAC will run my code that works on a PC

Try this:

Sub Insert_Rows()
'Modified 2/1/2022  5:23:55 PM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

For i = Lastrow To 1 Step -1
Rows(i).Insert
Next
Application.ScreenUpdating = True
End Sub

But when I'm trying to run this macro I have :
Invalid procedure call or argument

 

[My Aswer Is This]

But when I'm trying to run this macro I have :
Invalid procedure call or argument

Maybe because your using a MAC. Maybe someone else here will be able to help you