Autofill down 1 row

[ExcelPie]

Hey guys,

I need some help with autofilling formulas in 5 columns, for example, in range B112:H112, down just one row.

To give some context, I have a forecast formula in each of the 5 cells in that row, and with the press of a button, it will generate another row of forecast.

So far, this is what I have recorded:


Sub AddForecast()
'
' AddForecast Macro
'


'
Range("B80").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Range("B112:H113"), Type:=xlFillDefault


End Sub




Due to my lack of VBA knowledge, I can only manage with recording macros.

I need the macro to reference the last row of the table, which I recorded with the selections, then autofill down 1 row.

But since it was recorded by dragging the bottom right corner down, it keeps defining a set range. I don't know how to define the range.

Big thanks to anyone who can help me out with this in advance!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub ExcelPie()
    Range("B" & Rows.Count).End(xlUp).Resize(2, 7).FillDown
End Sub

 

[ExcelPie]

Hey, thanks for the simple code.

Definitely need to study more VBA. Thanks!

 

[Fluff]

You're welcome & thanks for the feedback