Insert Blank Row

[MyFlight]

Help I need a Macro that will insert a blank row in a worksheet. I receive a worksheet every week with a list of numbers between 100 and 1000 (and ohter data). I need to insert a blank row after each number in the spreadsheet (the numbers are not sequencial).

thanks

 

[bdmangum]

Assuming the data does not contain blanks rows in between data values prior to the addition of the new rows the following code will work. I included a delete rows macro as well.

Sub InsertRows()

Dim count As Integer
count = 1   'Starting row of data

While ThisWorkbook.Sheets(1).Cells(count, 1).Value <> ""    'Replace sheet name and column value as needed
    ThisWorkbook.Sheets(1).Rows(count + 1).insert xlShiftDown
    count = count + 2
Wend

End Sub

Sub DeleteRows()

Dim count As Integer
count = 1

While ThisWorkbook.Sheets(1).Cells(count, 1).Value <> ""
    ThisWorkbook.Sheets(1).Rows(count + 1).Delete xlShiftUp
    count = count + 1
Wend

End Sub