Dan

What are you referring to when you say "This was due to the error I receive when
I execute the commands"?

What is "this"?

Which commands? I must be missing part(s) of this thread.


Gord

On Tue, 20 Feb 2007 18:21:00 -0800, Dan wrote:

This was due to the error I receive when I execute the commands. The error is:
Run-time error '1004'
Application-defined or object-defined error

Dan


"Gord Dibben" wrote:

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?