Claudio Cruz respondió:
Prueba el siguiente código: Sub sumRango() Dim cellIni$, cellFin$, varSuma cellIni = "C2" 'Esta celda corresponde a la primera fila de tu tabla de valores Range(cellIni). Select 'Nos posiscionamos en la primera fila de valores Do If...