Sub ABC()
Dim lastrow as Long, i as Long
lastrow = cells(rows.count,1).End(xlup).row
for i = lastrow to 1 step -1
if isnumeric(cells(i,1)) then
if cells(i,1) 0 then
rows(i).Delete
end if
end if
Next

--
Regards,
Tom Ogilvy


" wrote:

Dear all,

I have a huge data in my excel I need to delete, I have an identify
formula, countif, for the data in column B. I wish to delete the
repeat one, and the result in countif would be larger than 0. How I
can write a vba code to delete the result in column A large than 0?

thanks

Vincent