Dejar datos de tabla en formato de BD

Dante en días pasados me habías ayudado con una pregunta la cual funciono perfectamente en el archivo, sin embargo en la vida real tengo las tablas en otras filas y columnas. Como te muestro en la siguiente imagen:

Y la tabla de destino esta asi

Hice las modificaciones a la macro sin embargo no logro generar los resultados

Sub Macro1()
  With Sheets("DATABASE").Range("F2:F" & Sheets("DATABASE").Range("D" & Rows.Count).End(3).Row)
    .Formula = "=IF(INDEX(Sheet1!$AG$4:$EE$60000,MATCH(AF4,Sheet1!$AF$4:$AF$60000,0),MATCH(AG3,Sheet1!$AG$3:$EE$3,0))=0,""""," & _
                   "INDEX(Sheet1!$AG$4:$EE$60000,MATCH(AF4,Sheet1!$AF$4:$AF$60000,0),MATCH(AG3,Sheet1!$AG$3:$EE$3,0)))"
    .Value = .Value
  End With
End Sub

Te agradezo si me indicas que puedo estar haciendo mal