Fill down comes up with debug error.

[Weronika]

Hi All,

Would someone be able to help me out with an excel 2007 macro please? My macro works fine, but sometimes it come up with debug error, because of fill the cells down based on count of rows in the other column:
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("E2").AutoFill Destination:=Range("E2:E" & LR)

if there is no cells to fill down it just stops. I have tried to use
Selection.AutoFill Destination:=Range("E2:E65536")
but then it works very, very slow. Is there any other solution to get that work properly at all the times.

Thanks for any help.
Weronika

 

[VoG]

Try

LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
If LR > 2 Then Range("E2").AutoFill Destination:=Range("E2:E" & LR)

 

[Weronika]

Thanks a lot, that works perfect.