Enter image below last entered cell

[dpaton05]

I have some code that used to work. It would put an image a set distance below textbox4 but I no longer have that text box. I just want it entered the same distance below the last entered item. Can someone help me with the vba please?

This is the code I had that worked before I got rid of the text box.

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

 

[Yongle]

Assumes that Column A determines last entered item

Selection.Top = shp.Top + shp.Height + "50"

Selection.Top = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Offset(1).Top + 50

 

[dpaton05]

Thanks Yongle