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

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