Direccionar de un rango a una celda especifica|VBA & Macros|Excel Forum|My Online Training Hub

estimados buenas tardes.

estoy intentando sacar reporte de des este archivo de esta manera.
intente jalar de la columna codigo y fijar en celda celda Código, el cual esta resaltado en la siguiente imagen, pero al generar la macro como resultado me jala el código del cuadro o reporte anterior, e intentado hacer una búsqueda de la hoja5 comparando con la hoja6 y y 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
Sub Separador()
Dim Fila As Long
Dim Final As Long

Hoja6.Activate

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

With Hoja6

For Fila = Final To 12 Step -1

If .Cells(Fila + 1, 15) <> .Cells(Fila, 15) Then

Rows(.Cells(Fila + 1, 1).Row & ":" & .Cells(Fila + 1, 1).Row + 11).Insert

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

End If
Next
End With

End Sub

por favor me podrian ayudar solucionar este caso o darme las pautas para poder corregir si en algun punto generé mal los códigos de programación. muchas gracias por su apoyo