.FillDown command not working (VBA)

[cfluegel]

Hello and thank you for viewing. I have an issue with a FillDown command in the following VBA code. The formula being entered into BX2 simply formats 3 columns of data into M/D/Y date format. The code is then designed to fill that formula down until the last row of data in the sheet. For some reason I get a runtime error at: Range("BX2:BX" & LastRow).FillDown

When I step in, it runs the formula in BX2 but does not fill down the formula even though there is data in the rows down to BX500 or so.

    Range("BX2").Select    ActiveCell.FormulaR1C1 = "=RC[-2]&""/""&RC[-1]&""/""&RC[-3]"
    Range("BX2").Select
    Range("BX2:BX" & LastRow).FillDown
    Columns("BX:BX").Select

Any ideas on what would cause the .FillDown command to fail would be greatly appreciated.

Thank you!

 

[Jonmo1]

Try it without Filldown at all, enter the formula in the whole range at once.

Range("BX2:BX" & LastRow).FormulaR1C1 = "=RC[-2]&""/""&RC[-1]&""/""&RC[-3]"

 

[cfluegel]

Thank you, I rather like that. However I am still getting the runtime error at that code now.

Have to say I'm feeling a bit stumped here.

 

[Jonmo1]

Most likely that the LastRow variable doesn't contain a valid numerical value.

Can you post the code that assigns a value to the LastRow variable?

 

[cfluegel]

Here's the code

 Dim LastRow As Long
    LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[Jonmo1]

Works for me...Assuming the LastRow variable has a valid numerical value assigned to it.

Maybe a better question is, what is the value of the LastRow variable at the time of the error?
And what is the wording of the error?

When you get the error, make note of the exact error message.C
lick Debug
Hover your mouse over the LastRow Variable, it will tell you it's value.