You could use a formula like this in sheet 2
IF(ISERROR(SMALL(IF(Sheet1!$A1:$A20="apples",ROW($A1:$A20),""),ROW($A1:$A20)
)),"",
INDEX(Sheet1!$A$1:$A$20,SMALL(IF(Sheet1!$A1:$A20="apples",ROW($A1:$A20),""),
ROW($A1:$A20))))
To enter it, select the number of rows you think you might need for items to
be copied, then enter the formula in the formula bar, and commit it with
Ctrl-Shift-Enter

Signature
HTH
RP
(remove nothere from the email address if mailing direct)
> what i am doing is that i want to picked out some datas in sheet 1 that
> fulfil a certain criteria(e.g those that has "apples")
[quoted text clipped - 17 lines]
> in sheet two , i want to delete the empty rows but i realised that it
> is not possible. Pls advise