Pushing an image to the following page if it is over the page break

[dpaton05]

I have a procedure that pastes in a signature from another sheet, just below the bottom of a quote. Is there a way to push it to the next page if the signature ends up being half on one page and half on the next?

Function LastRow()

    With Sheets("CSS_quote_sheet")
        LastRow = .Range("A:H").Find(What:="*", _
            After:=.Range("A1"), _
            Lookat:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False).Row
    End With
End Function
Sub cmdSig()
    Sheets("Sheet2").Shapes("ImgT").Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
    Selection.Top = Cells(LastRow, 1).Top + "100"
End Sub

 

[jolivanes]

If you change this line (from Post #17)

a = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Top + 1

to this

a = Rows(Sheets("Sheet1").Shapes("Divider").BottomRightCell.Row + 1).Top

does that do what you need?
Obviously, change references, Sheet Names, Divider etc, where needed
It assumes that the "Divider" is the bottom item of the sheet and is always there.

 

[dpaton05]

I tried it this morning and I can't remember what it did but I remember it didn't work.