Code:
Sub isempty()
Dim i As Integer
Dim LastRow As Range
LastRow = Range("A65536").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
Here is the attachment link
https://www.dropbox.com/s/jdhp515i2udb71u/isempty.xlsm?dl=0