Sub isemptyDemo() LastRow = cells(Rows.count, 1).End(xlUp).row For i = 1 To LastRow If isempty(cells(i, 1)) Then cells(i, 1).resize(1, 4).Interior.ColorIndex = 1 End If Next i End Sub