Gilber Fabian Tobar Diaz

Prueba con esto, la sumatoria queda al final de los datos contenidos en la columna A Sub suma() Dim fin As String fin = Range("A" & Rows.Count).End(xlUp).Row fin = Range("A" & Rows.Count).End(xlUp).Row Range("A" & fin + 1) =...

Creo que lo que necesitas lo puedes solucionar con una tabla dinámica, te dejo el código Sub TABLAKILOS() 'Armar Tabla Dinamica Worksheets.Add(Before:=ActiveSheet).Name = "Tabla" 'Asignar las hojas que se utilizaran Set H1 = Sheets("hoja1")...