Direccionar de un rango a una celda especifica

[Inocente]

estimado buenas tardes.

Estoy intentando sacar el informe de este archivo de esta manera.
intente jalar de la columna codigo y fijar en celda celda Codigo, el cual esta resaltado en la siguiente imagen, pero al generar la macro como resultado me jala el codigo del cuadro o informe anterior, e intento hacer una busqueda de la hoja5 comparando con la hoja6 yy direccionar el dato encontrado en las celdas código de la hoja6, pero no me da ningun resultado tampoco, la macro que esta corriendo es
subseparador()
tenue fila mientras
Dim final siempre

Hoja6.Activar

Final = nReg(Hoja6, 13, 1) - 2

Con Hoja6

Para Fila = Final A 12 Paso -1

Si .Celdas(Fila + 1, 15) <> .Celdas(Fila, 15) Entonces

Filas(.Celdas(Fila+1, 1).Fila & ":" & .Celdas(Fila+1, 1).Fila+11).Insertar

.Cells(Fila + 1 + 1, 1) = "FORMATO 13.1: REGISTRO DE INVENTARIO PERMANENTE VALORIZADO - DETALLE DEL INVENTARIO VALORIZADO"
.Celdas(Fila + 1 + 2, 1) = "PERIODO:"
.Celdas(Fila+1+2,2) = ""
.Celdas(Fila + 1 + 3, 1) = "RUC:"
.Celdas(Fila+1+3,2) = ""
.Celdas(Fila + 1 + 4, 1) = "RAZÓN SOCIAL:"
.Celdas(Fila+1+4,2) = ""
.Celdas(Fila + 1 + 5, 1) = "CÓDIGO:"
.Celdas(Fila + 1 + 5, 2) = Hoja6.Celdas(Fila, 15)
.Celdas(Fila + 1 + 6, 1) = "DESCRIPCION:"
.Celdas(Fila + 1 + 6, 2) = Hoja6.Celdas(Fila, 16)
.Celdas(Fila + 1 + 7, 1) = "UNI. DE MEDIDA:"
.Celdas(Fila + 1 + 7, 2) = ""
.Cells(Fila + 1 + 8, 1) = "MÉTODO DE EVALUACIÓN:"
.Celdas(Fila + 1 + 8, 2) = ""
.Celdas(Fila + 1 + 11, 1) = "FECHA DEL DOCUMENTO"
.Cells(Fila + 1 + 11, 2) = "TIPO DE COMPROBANTE"
.Celdas(Fila + 1 + 11, 3) = "SERIE"
.Cells(Fila + 1 + 11, 4) = "Nro DE DOCUMENTO"
.Cells(Fila + 1 + 11, 5) = "TIPO DE OPERACION"
.Celdas(Fila + 1 + 10, 6) = "ENTRADAS"
.Celdas(Fila + 1 + 10, 9) = "SALIDAS"
.Celdas(Fila + 1 + 10, 12) = "SALDOS"
.Celdas(Fila + 1 + 11, 6) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 7) = "COSTO UNITARIO"
.Celdas(Fila + 1 + 11, 8) = "COSTO TOTAL"
.Celdas(Fila + 1 + 11, 9) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 10) = "COSTO UNITARIO"
.Celdas(Fila + 1 + 11, 11) = "COSTO TOTAL"
.Celdas(Fila + 1 + 11, 12) = "CANTIDAD"
.Celdas(Fila + 1 + 11, 13) = "COSTO UNITARIO"
.Celdas(Fila + 1 + 11, 14) = "COSTO TOTAL"
.Celdas(Fila + 1 + 11, 15) = "CÓDIGO"


Terminará si
Del mes próximo
Terminar estafa

Finalizar sub

por favor me podrian ayudar a solucionar este caso o darme las pautas para poder corregir si en algun punto genere mal los codigos de programacion. muchas gracias por su apoyo

vínculo de la hoja excel

-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ---