supposing you have your quantities in column "A" (cells(cnt1,1)):
sub deletingrows()
dim cnt1 as integer
for cnt=1 to 100 'or put the number of rows
if cells(cnt1,1)=empty then 'for column "B":cells(cnt1,2) or for "C":
cells(cnt1,3)
rows(cnt1).delete
cnt1=cnt1-1
end if
next
end sub
other way is doing it with the sort command (Data-->Sort) .