Hi friends,

I have a little challenge for you and a big problem for me.

I need a macro, which is able to copy the table of on one worksheet
(worksheet1) in another worksheet (worksheet2).
In worksheet2 is already a table. The macro shall be able to find in
worksheet2 the first empty row after the existing table. The row begins
for example then with cell A2563. After the macro has found this cell
the table of worksheet1 has to be pasted.

Maybe you have a solution for me.

Thanks in advance

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

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

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