Macro to Insert a row and copy Formulae

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

All.

I want to write a macro to insert a row at the cell pointer.
Check that the first cell is in column A
and then copy a row of formulae into the new blank row.

I have hacked together the following. It quite happily inserts the row and
moves to column A but it only copies the formula row onto itself.
I think that I need to record the active cell (Column A of the inserted row)
and then paste the Formula row into it, but I've no idea where to start.

No need to give me the code, just point me in the right direction and I'll
try to work out the rest myself. This is a learning opportunity

Sub InsertRowAndPasteFormulae()
'
' Macro to Insert Row and Copy Formulae
' Macro prepared on 02/02/2006 by Philip.Smith
'
Selection.End(xlToLeft).Select
Selection.EntireRow.Insert
ActiveCell.Activate
Range("PP_Acc_Formulae").Copy
Range("PP_Acc_Formulae").PasteSpecial xlPasteFormulas


End Sub

Kind regards

Phil Smith
 
one way

Sub insertrowandformularow()
ActiveCell.EntireRow.Insert
Rows(1).Copy Rows(ActiveCell.Row)
End Sub
 
Hi Don.

Thanks for this, but where does this select the row containing the formulae
and copy it into the new blank row?

Sorry, If I've missed it.

Regards
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Insert Row also adds formulas and moves cursor 2
Keeping formulas on an insert 1
Eliminate blanks while copy row and transpose 11
Inserting additional rows and only copying certain columns 1
Run-time error when copying entire row! 5
Insert Value into cell automatically when new rows are created/inserted 1
Excel Help to copy information from one row at a time to another sheet 1
Changes in How Code Acts After Upgrade of Excel 2

Back
Top