Thanks very much. It works!
I got another andswer that is also very brilliant which dosn't need macro. I
thougt myself that it wasn't possible whithout macro but...

Thanks for your good work.
Regards, JoiSim

"Mike H" wrote:

Sorry JoiSim,

Try this instead:-

Sub Inserteveryother()
Set rng1 = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp))
col = ActiveCell.Column
For i = rng1(rng1.Rows.Count).row To rng1(1).row + 1 Step -1
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub


"JoiSim" wrote:

Hi!
I have a large database in Excel and I need to insert a row every other
time. When I record a macro in the normal way (by recording what I do) and
then run it, the macro always return to the rows I selected when I recorded
the macro and insert the rows there.

I need the macro to continue to the end of the database selecting every
other row without specifiing which row it is.

Can anyone out there help me with this as fast as possible?

Many thanks