Macro to drag formulae down

[BlueBarratt]

Hi all,

Having some trouble writing a macro to fill down formulae across several columns.

My macro looks like this:
Sheets("Arcade").Rows("37:37").Select
Selection.Insert Shift:=xlDown
Sheets("Arcade").Range("A36:T36").Select
Selection.AutoFill Destination:=Range("A36:T38"), Type:=xlFillDefault
Range("A36:T38").Select

I've recorded myself doing the exact thing I want the macro to do, and it returns the same code, so I'm a bit lost as to why it's not working. The error comes about on the penultimate line.

Thanks in advance for any help.

 

[JackDanIce]

Welcome to the board. Try this instead of above:

With Sheets("Arcade")
    .rows(37).Insert shift:=xlDown
    .Range("A36:T38").FillDown
End With

 

[BlueBarratt]

Welcome to the board. Try this instead of above:

With Sheets("Arcade")
    .rows(37).Insert shift:=xlDown
    .Range("A36:T38").FillDown
End With

Many thanks mate, this worked an absolute charm.

I did figure out a work-around involving copying the row above and pasting below, but your way is much more elegant!

 

[JackDanIce]

No worries and glad it works.