One method might be:

Dim FoundRow As Long

Sub FindData()
    Dim FindName As String

    FindName = Sheet1.Range("A6").Value
    FoundRow = Sheet2.Range("B:B").Find(FindName, , xlValues, xlWhole).Row
    Union(Sheet2.Range("C" & FoundRow), Sheet2.Range("D" & FoundRow), Sheet2.Range("F" & FoundRow), Sheet2.Range("H" & FoundRow)).Copy
    Sheet1.Range("B6").PasteSpecial xlAll
    Application.CutCopyMode = false
End Sub

Sub ReturnRow()
    With Sheet2
        .Range("C" & FoundRow) = Sheet1.Range("B6")
        .Range("D" & FoundRow) = Sheet1.Range("C6")
        .Range("F" & FoundRow) = Sheet1.Range("D6")
        .Range("H" & FoundRow) = Sheet1.Range("E6")
    End With
End Sub
Place it in a module and point your buttons to the code. Keep the Dim at the top out of the two subs.

There would be quite a few ways of doing this but the above is a start.

Hope this helps