You can use

Selection.Insert Shift:=xlDown

I have tried this and works well.

You can also decide where you want to shift.

Let me knos if it does not work in your code

Thanks,

Yogendra


gav meredith wrote:

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