Macro to Insert a row and copy Formulae
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
|