works down 1000 rows,- change if ness.

Sub addrow()
Dim t
Application.ScreenUpdating = False
For t = 3 To 1000 Step 3: Cells(t, 1).EntireRow.Insert: Next
Application.ScreenUpdating = True
End Sub


"andresg1975" skrev:

how can i add row every two rows
for example

row 1 150
row 2 200
insert row
300
180
insert row

and so on

thanks for your help