row values = vbNullString

I have a delete empty row function. This works fine ! little modification is necessary. Now he delete a line when the first cell is empty. He should verify the values of a row or at least a range. I tried rows(i4Row), not working.

   For i4Row = lLR To 2 Step -1
      If sh.Cells(i4Row, "A").value = vbNullString Then
        sh.rows(i4Row).EntireRow.Delete
      End If
   Next i4Row