What's wrong with End(xldown)?

That is pretty standard.

Specific information might provide some additional suggestions. Where is
the range. Is is isolated. Does it always start in a certain location. Is
it always contiguous at least in one column (no completely empty row in the
range).

set rng = Range("Z21").CurrentRegion.Columns(1).Cells
Selection.Copy Destination:= rng.rows(rng.rows.count+1)


--
Regards,
Tom Ogilvy

"Torstein Johnsen" wrote in message
...
I am collecting cells from a worksheet into a row. Each time I run a macro
I
want this row of cells to be copied
to the bottom of another range. This range is increasing in size as new
rows
are added.

Whats the best way to programaticcally do this? I have tried to use to use
the End(xlDown)-method, but I wonder if there are better methods to do
this?

Thanks

Torstein S. Johnsen