Buscar un valor y regresar múltiples resultados en Excel con funciones o macro, diferentes hojas

Actualmente estoy realizando un menú de búsqueda que sea capaz de arrojarme todas las coincidencias en una base de datos.

He intentado varias funciones y no logro que me arrojen todos los resultados posibles

La búsqueda seria de acuerdo al código del puesto, quedando así:

Para sacar el nombre del puesto la formula que utilice fue la siguiente:

=SI.ERROR(BUSCARV(G11,SI(D10="ID",Hoja1!$A$1:$L$1933,SI(D10="NOMBRE",Hoja1!$A$1:$L$1933)),SI(D10="ID",9,SI(D10="NOMBRE",1)),0),"-")

Mi problema es que esa fórmula es efectiva para sacar un sólo dato y no todos los resultados posibles que en mi caso corresponden al:

Hoja2

Mi base de datos esta diseñada con las siguientes columnas en la Hoja 1:

Intente realizarla con esta formula

=SI.ERROR(INDICE(Hoja1!$B$1:$B$1933, K.ESIMO.MENOR(SI(Hoja1!C1:C1933=$G$11, FILA()), FILA()-1)),"")

Pero no arroja ningún resultado :(, sinceramente no se qué estoy haciendo mal, igualmente intente utilizar una macro que recomendaste a otra chica pero no tuve éxito :(

'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    u2 = h2.Range("F" & Rows.Count).End(xlUp).Row
    If u2 < 2 Then u2 = 2
    h2.Range("F" & u2 & ":K" & u2).ClearContents
    j = 2
    celda = "G11"
    Set r = h1.Columns("A")
    Set b = r.Find(h2.Range(celda), lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            h1.Range(h1.Cells(b.Row, "B"), h1.Cells(b.Row, "J")).Copy
            h2.Cells(j, "F").PasteSpecial Paste:=xlValues
            j = j + 1
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
    End If
End Sub