sumar muchas celdas en una macro

¡ Hola !

mi pregunta es como puedo hacer para que al presionar un boton
me sume ejemplo: la celda D1:E1 y me la guarde en la celda F1
y si ingreso nuevos valores a las celdas d y e me las sume con un for

aqui mi codigo :


suma= WorksheetFunction.sum(Range("D1:E1"))
Worksheets("Hoja1").Range("F1") =suma

donde hace la suma pero la quiero para mas celdas sin repetir el codigo ya que quiero sumas mas de 100 celdas

saludos y gracias