I seem to get "slightly" better performance with the following idea by just
a hair. Needs XL 2000 or better due to "Filter."

Sub Demo()
'// Dana DeLouis
Dim v1, v2
Dim j As Long
With WorksheetFunction
v1 = .Transpose(Range([A2], [A2].End(xlDown)))

ReDim v2(.Min(v1) To .Max(v1))
For j = LBound(v2) To UBound(v2)
v2(j) = j
Next

For j = LBound(v1) To UBound(v1)
v2(v1(j)) = "x"
Next

v2 = Filter(v2, "x", False)
[b2].Resize(UBound(v2) + 1) = .Transpose(v2)
End With
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Soniya" wrote in message
...
Hi All,

Ho can i have a macro to find missing numbers from a
serial; to get a result something like..

COLUMNA CLOMN B

DATA RESULT
100 103
101 104
102 108
105 109
106
107
110

TIA
Soniya