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

 

[dpaton05]

I found a working version of my workbook, where the signature is appearing below the text. That means the only issue left to solve is pushing the image to the next page if it gets split across pages. What information do you require to help me with that?

With your questions, the last row is not the text "Please type your notes below..." as that is a label. The last row is the "Total incl GST"

 

[dpaton05]

The first row in the table is the header row in row 10 with the data starting in row 11. The first row on page 2 is row 37, 70 for page 3, 103 for page 4 and so on.

 

[jolivanes]

"Selection.Top = Cells(LastRow, 1).Top + "100""
What is the 100?

 

[jolivanes]

In Post #21 you twice mention "notes written". Now you say it is a label.
Anyway, you need to know the bottom of the last item, can be row, can be another picture or whatever, where you want your signature image to go below.
You should be able to find that with lastrow for just data, BottomRightCell for a shape.
The number from that + the height of your signature shape should be less than the first horizontal page break.
If not, your signature image should go to the 2nd page. (below the horizontal page break.

 

[dpaton05]

"Selection.Top = Cells(LastRow, 1).Top + "100""
What is the 100?

100 was just an amount to put the signature below the elements that are below the last row.

 

[dpaton05]

The label is on the sheet to tell the user to write notes below this point. Notes can be added by the user, which will go below the label. They may be added or may not.

 

[dpaton05]

I added this code to my push procedure just to see what BottomRightCell returned but

DividerBottom = Sheets("CSS_quote_sheet").Shapes("Divider").BottomRightCell

remained 0 all through the procedure. Maybe there is something wrong with my syntax.

 

[jolivanes]

What is the result of this?

DividerBottom = Sheets("CSS_quote_sheet").Shapes("Divider").BottomRightCell.Row

 

[dpaton05]

I get 32, which is the row that has the divider in it. I tried moving the divider and the number changed to the new row number that had the divider.

 

[dpaton05]

My supervisor has just told me that he is happy with how it is working at the moment. Thank you for your help in trying to help me solve this problem.