how can i search and copy details of a particular User details in Sheet1

i have 12 sheets in my excel i have taken sheet1(destination) in that i used to display particular user data(details) with headers

i have created an macro called searchcopy

what i was trying to it should display Month name(Which Month they have taken a leave
following this columns
TOTAL PRESENTS
TOTAL WEEKLY OFF
TOTAL LEAVES
TOTAL ABSENTS
TOTAL HALFDAY
TOTAL PRESENT


i have attached My ExcelSheet.....Please help me

 Dim Name As Variant
    Dim FindName As Variant
    Dim ws As Worksheet
    Set ws = Worksheets("May_2014")
    Name = InputBox(Prompt:="Please Enter the Application Name", _
        Title:=" Application Search")
    If Name = "" Then Exit Sub
    
    With ActiveSheet.Range("b2:fa65536")
        Set FindName = .Find(Name, , , xlWhole)
        If Not FindName Is Nothing Then
            
            MsgBox FindName.EntireRow.Cells(1, 1).Value
            MsgBox FindName.Address
        Else
            MsgBox Prompt:="Name Not Found.", Title:="Search Failed"
            Exit Sub
        End If
    End With