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