What is wrong with this vba code

[dpaton05]

Dim sht As Worksheet


Set sht = ActiveSheet

Sheets("sheet2").Shapes("ImgG").Copy
Sheets("NPSS_quote_sheet").Paste _
Destination:=Worksheets("NPSS_quote_sheet").Range("sht.Cells.SpecialCells(xlCellTypeLastCell).Row"+4)

I have a worksheet, NPSS_quote_sheet that I need to paste a signature I have saved on sheet2, 4 lines below the last cell. Could someone help me with this code please as I tried putting a method for finding the last cell into the range but as I don't know how to code, I can't debug it.

Thanks,
Dave

 

[alansidman]

See if this works for you.

Option Explicit


Sub foo()
Dim sht As Worksheet
Set sht = ActiveSheet
Dim lr As Long
'Find the last used row in Column A of target.  Change column as required
lr = Sheets("NPSS_quote_sheet").Range("A" & Rows.Count).End(xlUp).Row
Sheets("sheet2").Shapes("ImgG").Copy
Sheets("NPSS_quote_sheet").Paste _
Destination:=Worksheets("NPSS_quote_sheet").Range("A" & lr + 4)
End Sub

 

[dpaton05]

That works GREAT, thanks!!

Is there a way to not just check the last value in column A, but the last value in any column as it might not be in column A the notes are written?

 

[dpaton05]

How do you make the image snap to 1 page if it is inserted at the bottom of the page and it is half on one page and the other half of the image is on the other page?

 

[alansidman]

https://www.rondebruin.nl/win/s9/win005.htm

 

[dpaton05]

Thanks for that Alan. Do you know how to get images to snap to a page?

 

[alansidman]

Have no idea. Best chance for an answer is to start a new thread with a clear succinct title.