Foro Excel

Buenas tardes,

Mi problema viene resumido en el adjunto.
Necesito el código para que mi macro recorra una columna, lea los valores y los que sean iguales les sume sy saque el resultado en otra columna. Lo usado hasta ahora no me funciona

sub()
dim conc(6) as string
dim cost(6) as single
dim qrow,i ,j k as integer
dim ws as worksheet
set ws = activesheet
qrow = Cells(Rows.Count, "c").End(xlUp).Row
for i=0 to qrow-3
conc(i)=ws.cells(i+3,3).value
cost(i)=ws.cells(i+3,7).value
foj=0 to j=i-1
if conc(j)=conc(i) then
cost(i)=cost(i)+cost(j)
j=0
i=i-1
next j
next i
sheets("sheet2").Range("D4").select

' Escribir los resultados delos dos arrays y luego crear la siguiente celda sumatorio es fácil
'pero aquí no me lo ha guardado porque no deja de darme error
end sub

Muchas gracias por adelantado

Hola, antes de hacer la macro, mira la función SUMAR.SI, ahora bien en tu archivo no explicas como se llega a esos resultados.

Buenas tardes;

La hoja 2 del archivo muestra como quiero que quede esa hoja cuando aplique la macro a la hoja 1. Y la hoja 1 es un ejemplo de la hoja a la que se la quiero aplicar pero no mi hoja problema.
Estoy construyendo una herramienta y al llegar a este punto la tabla en la hoja1 puede tener esas dimensiones o no según haya ido eligiendo el usuario una serie de cosas.
Además la columna concepto es a rellenar por el usuario. Por eso necesito la macro que la lea y me lleve a la otra hoja los conceptos y su suma(en caso de que haya varios repetidos).


Un saludo

PD. Discúlpame porque lo he expresado de pena en el primer post

Hola:

Si lo he entendido bien, esto es lo que quieres.

Está preparado para añadir años y conceptos.

Saludos

Esto es con una tabla dinámica.