Macro.
Something like this:
Sub InsertRowAlternate()
While ActiveCell < ""
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Wend
End Sub

The "while" part will run down the page until it finds a blank cell;
this assumes that you have no blanks in the 5000. Otherwise you can
use a for loop, but I wasn't sure if your "5000" was an estimate or an
exact number.

On Jun 26, 2:29*pm, "Gaurav"
wrote:
Hi,

If we have 5000 rows of data and we need to insert a blank row after every
row, what would be the best way to do it?

Thanks