Hi
just delete the last line:
rng1.EntireRow.delete

--
Regards
Frank Kabel
Frankfurt, Germany

desperate wrote:
Thank you. This coding helps very much, but I don't want to cut the
rows from the first sheet, I want to just copy them onto the second
sheet. How would I do that?