Utilizar bases de datos con excel

Supongamos que tus datos están en la hoja1, columnas A-E y queremos que cuando marques una celda de la columna A te busque los datos en la Hoja2 y los copie a la hoja1 en las celdas G1:H10.
El código podría ser algo así:
Option explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim aux As String
    If Target.Column <> 1 Then Exit Sub ' No ha pulsado una celda de la columna A (o la que queramos)
    aux = Target.Text
    traerDatosPersona aux
End Sub
Private Sub traerDatosPersona(ByVal nomPersona As String)
    Dim n As Integer
    Dim i As Integer
    Dim aux As String
    ' Primero borraría los datos de la persona anterior (Celdas G1:H10, por ejemplo)
    Range("G1:H10").ClearContents
    ' Buscaría los datos de la persona seleccionada en la Hoja2.
    n = 1
    Do While n <= Sheets("hoja2").Cells.SpecialCells(xlCellTypeLastCell).Row
        If Sheets("hoja2").Cells(n, 1) = nomPersona Then Exit Do
        n = n + 1
    Loop
    If n > Sheets("hoja2").Cells.SpecialCells(xlCellTypeLastCell).Row Then
        ' No se ha encontrado. Lo indicamos en la celda G1
        Cells(1, 7) = "No Encontrado"
        Exit Sub
    End If
    ' Copiamos los datos de la persona encontrada
    For i = 1 To 10
        If Sheets("Hoja2").Cells(1, i + 1) <> "" Then
            Cells(i, 7) = Sheets("Hoja2").Cells(1, i + 1)
            Cells(i, 8) = Sheets("Hoja2").Cells(n, i + 1)
        End If
    Next i
End Sub