Mike,

Sheets("DestSh").Range("D4") =
Application.WorksheetFunction.Sum(Sheets("Sh").Ran ge("D8:D10"))

Or
Sheets("DestSh").Range("D4") = Sheets("DestSh").range("D8") + _
Sheets("DestSh").range("D9") + _
Sheets("DestSh").range("D10")

I've put it in D4. You can apply your own magic.
--
Earl Kiosterud
mvpearl omitthisword at verizon period net
-------------------------------------------

"Mike Taylor" wrote in message
om...
Would someone be kind enough to offer a suggestion to my earlier
post...I've searched the postings and not been able to figure this one
out...TIA
Mike

(Mike Taylor) wrote in message
. com...
The code below copies the value of cell d8 from one worksheet and
pastes the value and format of that cell into column M of a different
worksheet ("DestSh"). What is the code that would copy the sum of
cells d8:d10 rather than only the value in cell d8?

sh.Range("d8").Copy
With DestSh.Cells(Last + 1, "m")
.PasteSpecial xlPasteValues, , False, False
.PasteSpecial xlPasteFormats, , False, False
Application.CutCopyMode = False
End With

Thanks in advance for any feedback...
Mike Taylor