You said the copying was not the issue.

I showed you how to find the first blank row in column A on the ActiveSheet and
paste to that cell.

What you copy to that destination is what you have previously copied and have on
the clipboard.

The (Sheet2").Range("A1:J10") is just an example of a range to copy to first
blank cell.


Gord


On Tue, 20 Feb 2007 17:51:07 -0800, Dan wrote:

The two worksheets both have data. I am looking to combine the data into a
single file.

The data in the Active worksheet starts at row 6 (but I do not know the
end). The destination sheet, where I want to paste the data, I do not know
the location of the first available blank row. It could be line 590, 750, etc.

Thanks

"Gord Dibben" wrote:

Dan

Sub findbottom()
Set rng1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Worksheets("Sheet2").Range("A1:J10").Copy _
Destination:=rng1
End Sub


Gord Dibben MS Excel MVP


On Tue, 20 Feb 2007 17:05:03 -0800, Dan wrote:

I need to paste data from one worksheet into another. The copying of the data
is not the issue. How do I determine the location of the first blank cell in
a Column A to paste the data?