VBA Error with .FillDown

[sax2play]

Hello,

I am having an error where .FillDown is deleting my cell data when the first row=last row. Please see code below:

Application.ScreenUpdating = False
    Dim LASTROW As Long
    LASTROW = Cells(Rows.Count, "A").End(xlUp).Row
    Range("B5").Select
    ActiveCell.FormulaR1C1 = _
        "=XLOOKUP(RC[-1],EEB!C[12],EEB!C[8],""Not Found"",0,1)"
    Range("B5:B" & LASTROW).FillDown

Data always starts at row 5, but it is possible for the data to vary from nothing (completely blank) to hundreds+ lines of data.

Thanks!

 

[Fluff]

How about

Application.ScreenUpdating = False
    Dim LASTROW As Long
    LASTROW = Cells(Rows.Count, "A").End(xlUp).Row
    Range("B5").FormulaR1C1 = _
        "=XLOOKUP(RC[-1],EEB!C[12],EEB!C[8],""Not Found"",0,1)"
    If LASTROW > 5 Then
      Range("B5:B" & LASTROW).FillDown
    End If

 

[sax2play]

Worked perfect, thanks Fluff!!

 

[Fluff]

You're welcome & thanks for the feedback.