Help with offset for pasting formulas

[mlibrett]

I have a formula in one cell, and I need to write the code so that it copies and pastes this formula into the 8 cells beneath it without specifying the actual cells. I'm assuming some sort of offset code would work but I don't know where to begin or find this.

Thanks!

 

[mlibrett]

What if I wanted to be able to paste the formula down the amount of rows the data I'm using has, rather than specify the number of cells to paste it down?

I have a data set where the amount of rows will constantly be changing, so I want to be able to make it paste this formula down to the last one without it going down the same amount of cells every time.

 

[Rick Rothstein]

Did you really want to start at the ActiveCell each time then? Or do you want to fill the blanks in a certain column so that it fills down to the last used row no matter what column that last data item is in? Coding is very flexible, but knowing exactly what you have and want to do with it will usually get you the best answer for your needs.

 

[mlibrett]

I figured out a way to accomplish what I was trying to do but there is probably an easier way.

Here's what I came up with

Range("AN10").Select
    ActiveCell.FormulaR1C1 = "=+RC[-31]/R3C5"
    Selection.Copy
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 2).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.FormulaR1C1 = "=+RC[-31]/R3C5"
    Application.CutCopyMode = False
    Range("A1").Select