Dim x, z
Worksheets(">Planning G + Budget").Range("A14").Select
z = ActiveSheet.Range("A14").End(xlDown).Offset(3, 3).Select
Worksheets(">Planning G + Budget").Range("A14").Select
x = ActiveSheet.Range("A14").End(xlDown).Offset(0, 3).Select
ActiveSheet.Range("D" & z).Formula = "=sum(D14:D" & x & ")"