Do you really need the extra rows?

If for appearance only, select all the rows and double their height through
FormatRowHeight or drag the bottom selected row to a size you like.

If you want the rows inserted Bill has provided a method.

OR you could use a macro if you so choose.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
numRows = 1
For r = 560 To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Sun, 17 Sep 2006 23:02:04 +0300, "cambanis" wrote:

Hello everyone!
I have a spreadsheet full of data (560x15) and I would like to add one new
row bellow each one existing (1120x15).
Can I do it? (I can manually select rows one by one having CTRL pressed and
then insert Insert Row, but it takes a lot...)
Thanks