Auto fill formulas

Hi all,

Any direction on this would be wonderful.

Dates are put into Column B, starting at row 5.
Fomulas in Columns BF5, BG5, BH5, BI5.
Goal is to have the formulas auto filled down from Row 6, down equal to the last used cell in Column B

error is --> "Autofill method or range failed" --> on the "Range("BF5")" line.

LRow is --> Dim LR As Long

If Target.Column = 2 Then
        LRow = Cells(Rows.Count, 2).End(xlUp).Row
        Range("BF5").AutoFill Destination:=Range("BF6:BF" & LRow)
        Range("BG5").AutoFill Destination:=Range("BG6:BG" & LRow)
        Range("BH5").AutoFill Destination:=Range("BH6:BH" & LRow)
        Range("BI5").AutoFill Destination:=Range("BI6:BI" & LRow)
End If

Hi Leith,

Thanks so much. Works great. I almost had it right.

Thanks again
Dave

Originally Posted by Leith Ross

Hello Desert Piranha,

When using AutoFill the destination range must include the source range. You code should look like this...

If Target.Column = 2 Then
        LRow = Cells(Rows.Count, 2).End(xlUp).Row
        Range("BF5").AutoFill Destination:=Range("BF5:BF" & LRow)
        Range("BG5").AutoFill Destination:=Range("BG5:BG" & LRow)
        Range("BH5").AutoFill Destination:=Range("BH5:BH" & LRow)
        Range("BI5").AutoFill Destination:=Range("BI5:BI" & LRow)
End If

Sincerely,
Leith Ross