Suma Progresiva

[juliangarita]

Hola, Amigos, tengo esta macro solo que si inserto unas filas arriba de la tabla no me funciona, quiero colocar un encabezado en ella y me arroja, "no coinciden los tipos", en la macro donde puedo modificar ese rango, entiendo que el rango de la hoja de registros lo define arriba, pero el de la hoja de pedido no lo entiendo, me podrían ayudar por favor.

Algo así fue lo que intenté, y no funciona :(

Sub registroprueba()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Sheets("Registros").Range("B3:E" & _
Sheets("Registros").Range("A" & Rows.Count).End(xlUp).Row) 'Última fila
Celda.Value = Celda.Value + Sheets("Pedido").Range(Celda.Address)
Next
End Sub

[#2 · Accepted solution]

@juliangarita 

Could you please, based on the file you have sent, what exactly is your plan, or what should the file (or vba code) do that it doesn't?

Probably because of the translation I can't follow you.

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)