Use this Bob
With sh.Range("A8").CurrentRegion
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
With DestSh.Cells(Last + 1, "A")
.PasteSpecial xlPasteValues, , False, False
Application.CutCopyMode = False
End With
End With
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Bob" wrote in message ...
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