Carlos Serrano respondió:
Bueno no te entendí muy bien pero creo que necesitas que el te sume los rangos y bueno te hice esta macro mejor programada, saludos Public Sub macro() r = 3 c = 1 suma = 0 Cells(r, c).Activate Do While i = False Cells(r, c).Activate If Cells(r,...