Worksheets("Sheet1").Range("A1:Z100").Copy _
Destination:=LastCell.offset(1,0)

to drop down one cell after the last used cell.



"BrianB <" wrote:

Dim LastCell As Range
Set LastCell = Worksheets("Sheet2").Range("A1").End(xlDown)
Worksheets("Sheet1").Range("A1:Z100").Copy Destination:=LastCell

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson