sub trythis()
with sheets("destsheetname")
lr=.cells(rows.count,"a").end(xlup).row+1
range("sourcerange").copy .cells(lr,"a")
end with

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"mr_skot" wrote in message
oups.com...
On Oct 30, 7:54 am, "Don Guillett" wrote:
Do it withOUT selections
range("sourcerange").copy sheets("destsheet").range("destinationrange")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"mr_skot" wrote in message

oups.com...


Thank you for the reply. One more question.

So I should test for a valid target row before performing the paste?

Something along the lines of:

-Get the source row
-Check for clear target row
-Set valid target row
-Copy source row
-Paste to valid target row

Something like this?