一旦コピーしたデータを、別のセルに演算して貼り付けることができます。
「形式を選択して貼り付け」の「演算」を利用した方法です。

　サンプルでは、１つのセルだけではなく列全体を指定しているので、
列全体が一括計算されます。

　D列に値を入力して、サンプルマクロを実行してください。
　C列に1回目は同じ値がコピーされますが、2回目は加算された値が入力されます。

Sub RangeAdd()

    ' コピー状態をクリア
    Application.CutCopyMode = False

    ' 足す値が格納された列（範囲）を選択
    Columns("D:D").Copy

    ' 足される行（範囲）を選択し、コピーされたデータを値として加算する
    Columns("C:C").PasteSpecial Paste:=xlValues, Operation:=xlAdd

End Sub