Que tal saludos para todos quisiera saber si alguien me  puede ayudar con una macro que me identifique las columnas con datos (como un currentregion)y sume su valores al final de cada cada columna muchas gracias por su colaboracion

Libro1.xlsx

Hola   nickmartinez , prueba el adjunto y comenta

Libro1Prueba(1).xlsb

Este es el resultado.....

muchisimas gracias me sirve estupendo una ultima cosa para terminar de comprender el codigo de donde sale esto Range("Av1")? pense que Av1 era el nombre de un rango pero no lo es o al menos yo no lo veo

 

Hola,    cambia la línea que tienes de color amarillo por la nueva de color verde para que lo comprendas mejor.

Uc = Range("Av1").End(xlToLeft).Column
Uc = Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column

Perfecto,estoy muy agradecido saludos

Hola NickMartinez y JSDJSD,

La solucion de JSDJSD está perfecta.

Pero bueno me he preguntado sí se podría hacer solo con un bucle en vez de con dos.

Y sí se puede. Aquí va otra manera pero con un solo bucle.

Espero os guste.?

 

SumaColumnas.xlsm

Muchas gracias ikanni esta SUPER tu aporte,es bueno llegar a roma por otro camino jeje,gracias a todos  (Ikanni,JSDJSD) son geniales