In diesem Beispiel werden Daten in den Zellen D1:D5 in Sheet1 durch die Summe des vorhandenen Inhalts und den Zellen C1:C5 in Sheet1 ersetzt.
With Worksheets("Sheet1")
.Range("C1:C5").Copy
.Range("D1:D5").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With