I am trying to get this macro

For Operation = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Len(Application.Trim(Cells(Operation, "A"))) < 1 Then Cells(Operation,
"A") = "Examine"
Next Operation

To perform these steps

Check each row in Column A for data
If the row contains data do nothing
If the row does not contain data check the row above it for data. If the
row above it has data enter the text €˜Closed into the empty row.

However, it will only work if data is in another Column but the same Row not
the same Column another row. Can you help?