afternoon, can someone please advise how this code should read so as to
insert rows to hold the data pasted.(within the print area)

cheers!!!

Private Sub CommandButton1_Click()

Sheets("quote2").Range("appendix").Copy

Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate

Cells.Find(What:="appendix1.0", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate

ActiveCell.Offset(2, 0).Select
ActiveSheet.Paste
End Sub