Hi, I'm new here. been trying to compile a macro that would color(eventually eliminate) a cell(eventually row) if the cell above it was also empty.

I got to this, but it doesn't work. can anyone help me pls? I'm stupmed


Sub eliminate()

x = ActiveCell.Row
y = ActiveCell.Column

Do While Cells(x, y).Value <> ""

For Each Cells(x, y) In Selection
If Cells(x, y).Value = "" Then
If Cells(x - 1, y).Value = "" Then
Mycell.Interior.ColorIndex = "3"
Else
Mycell.Interior.ColorIndex = "0"
End If
Next
End If
Next

End If

x = x + 1

Next

Loop

End Sub