Hahaha lol;

thanks for the help Don.

I'm lol cos of your "It probably would have been easier to give you
the code but you should learn."

It certainly would have been easier, but you're right, I SHOULD learn!

Thanks again.

I'll post any subsequent questions here


Steve



On Tue, 19 Sep 2006 07:49:18 -0500, "Don Guillett"
wrote:

to determine the last row use
lr=cells(rows.count,"a").end(xlup).row
or
lr=cells(2,1).end(xldown).row

use the same idea with rows instead to find the next available column.

remove all selections as they are not necessary or desirable. example

Rows("3:" & lr).copy
sheets("dest").Range("A10").Insert Shift:=xlDown
now play with it using your variables to do it all without selections

It probably would have been easier to give you the code but you should
learn.