With Worksheets("Sheet2")
iLastRow = .Cells(.Rows.Count,"A").End(xlUp).Row
Worksheets("Sheet1").Range("myRange").Copy .Cells(iLastRow+1,"A")
End With

--
HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"RD Wirr" wrote in message
...
I need to copy a variable sized range of data from one sheet and paste it
onto the end of a list on another sheet from a VBA routine. I have tried
accessing the variable source range via a dynamic named range setup in the
worksheet itself but my limited skill grinds to a halt when I try to grab
that data and append it to the new list. Can someone help me with a bit of
code for this?
Thanks in advance,
RDW