> Hi
>
[quoted text clipped - 33 lines]
>
> Crownman
I did a Google search and found the answer.
Selection.End(xlDown).Offset(1,0).Select
Crownman
assumes both are open and you are in the source sheet.
Sub CopyToOpenSheet()
With Workbooks("destination.xls").Sheets("sheet1")
dlr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("source").Range("a2:m3").Copy .Cells(dlr, 1)
End With
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Hi
>
[quoted text clipped - 33 lines]
>
> Crownman
Crownman - 24 Aug 2007 22:43 GMT
> assumes both are open and you are in the source sheet.
>
[quoted text clipped - 49 lines]
>
> - Show quoted text -
Thank you for your advice.
I intend to have the destination file open along with several source
files. I then run the macro on each source file in sequence. After I
added the offset reference and took out the line for A28, everything
worked perfectly.
Crownman
Don Guillett - 24 Aug 2007 22:57 GMT
If all source files are pretty much the same you could do this from the
desitination file without any selecting of files using the same theory I
gave you changed to stay in the destination file and copy from each source
file.

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
>> assumes both are open and you are in the source sheet.
>>
[quoted text clipped - 62 lines]
>
> Crownman