Data Type Functions VisualBasic Script

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