Trying to use drop down list to output data from a different sheet

[CellHopper]

Hi everyone,
I'm a novice at excel. I know how to use it to get by from day-to-day, but I've recently been toying around on how to create a very minimal user interface that outputs clean information derived from a data dump contained in a different sheet within the same file.
This images below are a rough idea of what I'm trying to accomplish:

Any help on how to accomplish this would be really appreciated.
Note: I am primarily working with Excel 2007 if that makes a difference.

Thanks in advance to anyone willing to help out.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your "Rep Profiles" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make your selection in B8.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B8")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim foundRep As Range
    Set foundRep = Sheets("Data").Range("B:B").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not foundRep Is Nothing Then
        Range("E8") = foundRep.Offset(0, 2)
        Range("E10") = foundRep.Offset(0, 4)
        Range("E12") = foundRep.Offset(0, 6)
        Range("H8") = foundRep.Offset(0, 8)
        Range("J8") = foundRep.Offset(0, 9)
        Range("K8") = foundRep.Offset(0, 10)
        Range("H10") = foundRep.Offset(0, 11)
        Range("J10") = foundRep.Offset(0, 12)
        Range("K10") = foundRep.Offset(0, 13)
        Range("H12") = foundRep.Offset(0, 14)
        Range("J12") = foundRep.Offset(0, 15)
        Range("K12") = foundRep.Offset(0, 16)
        Range("H14") = foundRep.Offset(0, 17)
        Range("J14") = foundRep.Offset(0, 18)
        Range("K14") = foundRep.Offset(0, 19)
        
        Range("M8") = foundRep.Offset(0, 20)
        Range("O8") = foundRep.Offset(0, 21)
        Range("P8") = foundRep.Offset(0, 22)
        Range("M10") = foundRep.Offset(0, 23)
        Range("O10") = foundRep.Offset(0, 24)
        Range("P10") = foundRep.Offset(0, 25)
        Range("M12") = foundRep.Offset(0, 26)
        Range("O12") = foundRep.Offset(0, 27)
        Range("P12") = foundRep.Offset(0, 28)
        Range("M14") = foundRep.Offset(0, 29)
        Range("O14") = foundRep.Offset(0, 30)
        Range("P14") = foundRep.Offset(0, 31)
    End If
    Application.ScreenUpdating = True
End Sub

 

[CellHopper]

Codes**

Thank you very much. You are a life saver.

 

[mumps]

You are very welcome.