Loop and Insert Row VBA

[Scott3561]

Hello - I'm looking for some assistance, I have roughly 5000 rows of data and I need to insert a row between each of them.

Basic Statement that i'm looking to achieve is:

If Cell in column A has data, (Text, number, etc) then insert row beneath. Loop until cell with out data (text, number, etc.) has been reached.

 

[mse330]

Welcome to Mr. Excel

How about this

Sub InsertRow()
    For x = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
        Rows(x).EntireRow.Insert
    Next x
End Sub