Help with a tricky macro...!

[450nick]

Hi all,

I'm trying to write a macro to do a fairly specific task but I can't figure out how to do it...

a cell in column C will be selected, and I need the macro to insert a row, and use the fill function to copy down the formulas in the row preceding the new one from columns D to J. How would I do this?

I've got it to insert a row, but I can't for the life of me figure out how to copy down the formulas from above!

 

[njimack]

Something like this?

Sub Insert_and_Copy()
Dim row As Long

row = ActiveCell.row

ActiveCell.EntireRow.Insert

Range(Cells(row - 1, 4), Cells(row - 1, 10)).Copy Destination:=Cells(row, 4)


End Sub

 

[450nick]

Great thanks! I've been trying to do that for a while now, must be getting tired!