insert rows

[gav meredith]

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

 

[yogendra joshi]

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