try this sub (may not be elegant)


your data is in A1 downwards
the sub is

Public Sub test()
Dim myrange As Range
Dim cell As Range
Dim reminder As Single
Dim divisor As Single
Set myrange = Range(Range("a1"), Range("a1").End(xlDown))
For Each cell In myrange
divisor = cell / 2
divisor = Int(divisor)
reminder = cell - divisor * 2
If reminder = 0 Then
cell.Offset(0, 1) = cell
Else
cell.Offset(0, 2) = cell
End If
Next
End Sub



banu wrote in message
...
Could anyone please help me to write a macro that filters odd & even
numbered
IPAddress from a huge list fo data.

Thanks & Regards