Help with Macro to Copy/Paste cells to different worksheet based on Value

I ran this macro for one name but need to do it for different names - so I need to get the macro to use the name I run in the cell I'm in when I run it:

Sub CopyDataForName()
'
' CopyDataForName Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
    Sheets("2B 2014 Proposed Class List").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Andrew Dibby"
    Sheets("1B 2013 data").Select
    Cells.Find(What:="Andrew Dibby", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 1).Range("A1:Y1").Select
    Selection.Copy
    Sheets("2B 2014 Proposed Class List").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveSheet.Paste
End Sub