Find and match cell text value on another sheet and paste row on correct row number

Hi all,

I'm looking to refine the macro below I have recorded to find the value on "Sheet6" in cell H3 (the name of the person) on the "Availability" sheet and paste it across from column B. However, being new to VBA in the main I am unsure how to do this. I recorded the macro using the basic "find" option but of course this only finds the name of the person I specified. Hopefully you can help.

The info I want pasted from Sheet 6 is contained in cells B6:M6 and I want it pasted from columns B:M across the row on the Availability sheet where the corresponding name of the person is in column A. Hope this makes sense. I've attached the workbook so hopefully this will make sense.

It's a work in progress I inherited from someone else, so eventually parts are going to be hidden, which is why the vba needs to be fired from a submit button rather than using vlookup etc.

Sub Macro5()
'
' Macro5 Macro

    Sheets("Sheet6").Select
    Range("B6:M6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Availability").Select
    Cells.Find(What:="Ullmann, Linda", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("B38:M38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Thank you,
Smash.