sequential number breaks

[Cyberwolf]

I am trying to write code that will look throught a spreadsheet and find a
break in a sequential field. i.e. , 2, 3, 5

Once the break is fouind I would place a blank line between these and
continue until I reach the end of the file

I know how to place the blank line and know how to find the end of the file,
I just can't figure the code for finding the breaks in the numbers.

 

[Ian]

This will only work for sequences as you quoted ie 1,2,3,5. It would need
modification for 2,4,8,10 etc.
Change the rowz range to suit your data. The start row needs to be the
second row of data as it compares to the previous row.

Sub findsequencebreak()
diff = 1
For rowz = 2 To 12
Cells(rowz, 1).Select
If Cells(rowz, 1) <> Cells(rowz - diff, 1) + diff Then
Cells(rowz, 1).EntireRow.Insert
diff = 2
Else
diff = 1
End If
Next rowz
End Sub