Range("A1", Range("A1").End(xlDown)).EntireRow.Copy
Change both "A"s to the column you want to use to look for blank data in.
--
Charles Chickering

"A good example is twice the value of good advice."


"Calle" wrote:

Hi!
This macro works when I decide what cells to copy:
Set sourceRange = mybook.Worksheets(1).Rows("1:200")

But how do I write a macro that copies al the rows untill first empty row in
the sheet?