Using VBA to insert different headers

[dpaton05]

I have a start up page for my spreadsheet that allows a user and a site to be selected. Depending on the user, I want a signature that is stored on the sheet Users, inserted in the following format onto sheet1. The signatures are stored in sheet 2.

    Dim shp As Shape
    Set shp = Sheets("sheet1").Shapes("textbox4")
        Sheets("Sheet2").Shapes("ImgG").Copy
        Sheets("sheet1").Paste Destination:=Sheets("sheet1").Cells(1, 1)
        Selection.Top = shp.Top + shp.Height + "50"

Can someone help me with the vba please?

 

[AlphaFrog]

    [color=darkblue]Dim[/color] shp [color=darkblue]As[/color] Shape
    [color=darkblue]Set[/color] shp = Sheets("Sheet1").Shapes("textbox4")
    Sheets("Sheet2").Shapes("ImgG").Copy
    Application.Goto Sheets("Sheet1").Cells(1, 1)
    Sheets("Sheet1").Paste
    Selection.Top = shp.Top + shp.Height + 50