Hi, try this:

Sub Row_Deleting()
Row = 1
Do Until Cells(Row, 1) = ""
Value = Cells(Row, 1)
If Value = "-1" Or Value = "0" Then GoTo line1 Else GoTo line2
line1:
Rows("" & Row & ":" & Row & "").Select
Selection.Delete Shift:=xlUp
GoTo line3
line2:
Row = Row + 1
line3:
Loop
End Sub


€žamrezzat" napÃ*sal (napÃ*sala):


hi to all

i have the next column

-1
0
1
2
3
4
5

and continues up to about 300 entry
how can i eleminate the -1 and 0 numbers and rearrange the data again
in the same column

thx in adavnce


--
amrezzat
------------------------------------------------------------------------
amrezzat's Profile: http://www.excelforum.com/member.php...o&userid=28766
View this thread: http://www.excelforum.com/showthread...hreadid=521685