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?

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?

Thx, but this code copies the empty cells that has formulas in them.... Any
workaround?

Can you send me an example spreadsheet and a description of what you want to
happen? (E-Mail Removed)
--
Charles Chickering

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


"Calle" wrote:

> Thx, but this code copies the empty cells that has formulas in them.... Any
> workaround?