Tom,
I tried that, but got an error message. Thanks all the same.
Bob


"Tom Ogilvy" wrote:

.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy

DestSh.Cells(Last + 1, "A").Pastespecial xlValues

would be my thought.

--
Regards,
Tom Ogilvy


"Bob" wrote:

Ron,
Sorry to bother you, but I need to change the following line in the macro
you sent me:

.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy DestSh.Cells(Last
+ 1, "A")

from a Copy operation to a PasteSpecial (xlPasteValues) operation. Could
you kindly tell me how to change it? Thanks for your help.
Regards, Bob