Autofill formula issue

[natetc]

Hi,

I have a macro that runs autofill for certain columns, but I've run into a problem. When testing I've usually had more than one entry, however now if I have only one entry my code doesn't work. Can someone suggestion a solution? (In order to run for a single entry I removed the bolded line)

Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Columns("Y").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Y2").FormulaR1C1 = "=TEXT(RC[-1], ""00-00-0000"")+0"
Range("Y2").AutoFill Destination:=Range("Y2:Y" & LR)
Columns("Y").NumberFormat = "[$-409]mmmm d, yyyy;@"
Range("Y1").Value = "Date1"


LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Columns("AA").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AA2").FormulaR1C1 = "=DOLLAR(RC[-1],2)"
Range("AA2").AutoFill Destination:=Range("AA2:AA" & LR)
Range("AA1").Value = "EAP1"

 

[VoG]

Maybe

If LR > 2 Then Range("Y2").AutoFill Destination:=Range("Y2:Y" & LR)