Assuming your first column starts from A1, run this macro:

Private Sub CommandButton1_Click()

Set rngStart = Range("A1")
Set rngResult = Range("B1")

Set rngSearch = Range(rngStart, rngStart.End(xlDown))
j = 0
i = 1

For Each cl In rngSearch
If i 1 Then
diff = rngSearch(i) - rngSearch(i - 1)
If diff 1 Then
For k = 2 To diff
rngResult.Offset(j, 0) = rngSearch(i - 1) + k - 1
j = j + 1
Next
End If
End If
i = i + 1
Next
End Sub



Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=379607