Formula exporte datos de una hoja

H o l a:

Faltó que indicaras en dónde vas a poner el centro que requieres.

Te preparé la macro para que pongas el centro que requieres en la celda B1

Sub ExportarDatos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    celda = "B1"
    '
    If Range(celda) = "" Then
        MsgBox "Captura el centro en la celda: " & celda
        Range(celda).Select
        Exit Sub
    End If
    '
    h2.Cells.Clear
    h1.Rows(2).Copy h2.Rows(1)
    j = 2
    Set r = h1.Columns("C")
    Set b = r.Find(h1.Range(celda), lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            h1.Rows(b.Row).Copy h2.Rows(j)
            j = j + 1
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
        MsgBox "Registros copiados"
    Else
        MsgBox "No hay coincidencias"
    End If
End Sub

':)
':)