Hi, nikko50,

maybe you donīt tell us that an error (which one?) occurred but what you want to do.

Searching for empty cells within Column Ae?
Sub Sample()
On Error Resume Next
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "Test"
End Sub