copy a range of cells (a row) to the bottom of a "list"

[Torstein Johnsen]

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

 

[Tom Ogilvy]

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)