Add data from cell D3 to last used cell then offset 1 down and place value

[kelly mort]

I want to add all data from D3 down to last used cell then go down 1 and place that result there. Can someone fix that for me?

 

[ParamRay]

Sub CutAndPaste()
  Dim Top As Range
  Dim Bottom As Range
  Set Top = Range("D3")
  Set Bottom = Top.End(xlDown)
  Range(Top, Bottom).Cut Destination:=Bottom.Offset(1)
End Sub

 

[kelly mort]

Okay thanks. I have not tried it yet. I am not with my pc now. Can you explain the script for me?

I am confused with how the cut and paste will do the addition.

Regards
Kelly

 

[Fluff]

Is this what you want

Sub MySum()
Range("D" & Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=sum(r1c:r[-1]c)"
End Sub

 

[kelly mort]

Is this what you want

Sub MySum()
Range("D" & Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=sum(r1c:r[-1]c)"
End Sub

Sure. But I don't really understand the formula. Can you digest it for me?

 

[Fluff]

It should actually be

=sum(r3c:r[-1]c)

The r3c is saying row 3 for that column(ie D3) whilst the r[-1]c is 1 row above the formula for that column.
So if the formula is in D40 its SUM(D3:D39)

 

[kelly mort]

Thanks for the explanation and great fix.

 

[Fluff]

You're welcome