Suma Progresiva

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