macro que sume n veces

[bada7]

hola comunidad


mi pregunta es que tengo una macro con un botón que suma dos celdas ejemplo

g1+h1=i1

hasta ahora todo bien pero si quiero que sume en cualquier celda de g y h tendría que usar un while y un for pero no se como ayuda aquí esta mi código

wsuma6 = WorksheetFunction.sum(Range("G18:H18"))
Worksheets("Hoja1").Range("I18") = wsuma6

suma las celdas g18y h18 y el resultado queda en la I18 pero se podria hacer hasta el 100 o mas que siga sumando cuando alla numeros en esa celda g y h ??