Delete Row If Range Is Blank

I need a bit of code that will delete a row if a range in the row is all blank
ie, if all cells in range between I and AZ are blank then delete the row
I also need this to happen from row 5 downwards as top 4 rows are headers etc.

I have been trying to modify this piece of code but with no luck


Dim fn As WorksheetFunction
Dim rngDelete As Range

Set fn = Application.WorksheetFunction
Set rngDelete = Range("I1:AZ1")
NumberOfRows = Range("a10000").End(xlUp).Row

For x = NumberOfRows To 1 Step -1
With rngDelete
If fn.CountA(.Offset(x, 0)) = 0 Then .Offset(x, 0).EntireRow.Delete
End With
Next x