select insert row? 1

[lespaul]

I have the following piece of code that needs a minor adjustment! the PasteSpecial needs to go into the row that I just inserted not into the Range("InsertHere&quot. How can I do that?
Thanks for any help!

leslie

Sub Copy_Formulas() 'copies each Interviewer name to formulas,
'then copies the result of the formulas to the Monthly report.
For Each c In Range("Interviewers&quot
c.Copy ("int_name&quot
Range("frms&quot.Copy
Range("inserthere&quot.Insert shift:=xlDown
Range("inserthere&quot.PasteSpecial ([Paste:= xlPasteValues])
Next

Range("inserthere&quot.Delete shift:=xlUp

Worksheets("MonthlyReport&quot.Select

End Sub

 

[DaleWatson123321]

I believe the following will do the job...

Sub Copy_Formulas() 'copies each Interviewer name to formulas,
'then copies the result of the formulas to the Monthly report.
Application.ScreenUpdating = False
Application.Goto Reference:="sumtop"
For Each c In Range("Interviewers&quot
c.Copy ("int_name&quot
Range("frms&quot.Copy
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
ActiveCell.Offset(1, 0).Select
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Reminder: to assign the range name "sumtop" to the first cell under "Name" in the MonthlyReport.

(This routine can be activated from any sheet.)

Hope this helps. Please advise as to how you make out.

Regards, ...Dale Watson

HOME: nd.watson@shaw.ca
WORK: dwatson@bsi.gov.mb.ca