Copy down to last row iLastRow

[gheyman]

This code is causing me a problem and not sure why. I want to copy the formula in O2 down to the last row

Sub Add_EOMONTH()
'
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=EOMONTH(RC[-2],0)"
'
    Dim i As Long
    Dim iLastRow As Long
'
'
        With Sheets("Potential Awards")
            iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("O2").AutoFill Destination:=.Range("O3:O" & iLastRow)
    End With

End Sub

 

[Joe4]

When doing AutoFill, include the cell you are copying as the first cell in your destination range.

So change this:

.Range("O2").AutoFill Destination:=.Range("O[COLOR=#ff0000][B]3[/B][/COLOR]:O" & iLastRow)

to this:

.Range("O2").AutoFill Destination:=.Range("O[COLOR=#ff0000][B]2[/B][/COLOR]:O" & iLastRow)

 

[Jonmo1]

I would also suggest instead of putting the formula in one cell then filling down
You can put the formula in all cells in one stroke.

Sub Add_EOMONTH()
Dim iLastRow As Long
'
'
With Sheets("Potential Awards")
    iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("O2:O & iLastRow").FormulaR1C1 = "=EOMONTH(RC[-2],0)"
End With
End Sub

 

[gheyman]

Thanks, Joe. Looked at it many times, didn't catch that.