Macro to delete a row if a range of cells is blank

[John T]

I need a macro to delete a row if there is no data in cells A5:I104

 

[Momentman]

Do you mean, deleting for example row 5, if there's no data from column A to column I and the same for row 6 up till 104?

 

[Michael M]

Which row do you want to delete ??

 

[John T]

Which row do you want to delete ??

I want to delete all the rows which contain no data in cells A5:I104.

so if for example rows 80 and 90 hand no data in columns A:I it would delete the entire row.

 

[Momentman]

Something like

Sub delrows()    
    Dim wf As WorksheetFunction
    
    Set wf = Application.WorksheetFunction
    For I = 104 To 5 Step -1
        If wf.CountBlank(Range("A" & I & ":" & "R" & I)) = Range("A" & I & ":" & "R" & I).Count Then
            Rows(I).EntireRow.Delete
        End If
    Next I           
    
End Sub

 

[John T]

Something like

Sub delrows()    
    Dim wf As WorksheetFunction
    
    Set wf = Application.WorksheetFunction
    For I = 104 To 5 Step -1
        If wf.CountBlank(Range("A" & I & ":" & "R" & I)) = Range("A" & I & ":" & "R" & I).Count Then
            Rows(I).EntireRow.Delete
        End If
    Next I           
    
End Sub

This doesn't seem to do anything on my worksheet.

 

[Momentman]

This doesn't seem to do anything on my worksheet.

A to I you said, i accidentally used A to R,but in any case it works for me. Please try the modified version below

Sub delrows() 
   Dim wf As WorksheetFunction
    
   Set wf = Application.WorksheetFunction
   For I = 104 To 5 Step -1
      If wf.CountBlank(Range("A" & I & ":" & "I" & I)) = Range("A" & I & ":" & "I" & I).Count Then
         Rows(I).EntireRow.Delete
      End If
   Next I
End Sub

 

[John T]

A to I you said, i accidentally used A to R,but in any case it works for me. Please try the modified version below

Sub delrows() 
   Dim wf As WorksheetFunction
    
   Set wf = Application.WorksheetFunction
   For I = 104 To 5 Step -1
      If wf.CountBlank(Range("A" & I & ":" & "I" & I)) = Range("A" & I & ":" & "I" & I).Count Then
         Rows(I).EntireRow.Delete
      End If
   Next I
End Sub

Thanks that seems to work correctly.

 

[Momentman]

Thanks that seems to work correctly.

Seems to or Works thanks for the feedback

 

[mancubus]

hi.

deletes a row if all cells in the same row are blank (Cols A-I)

Sub del_r()
    Dim i As Long
    
    For i = 104 To 5 Step -1
        If Application.CountA(Range("A" & i & ":" & "I" & i)) = 0 Then Rows(i).Delete
    Next i
End Sub

deletes a row if at least one cells in the same row is blank (Cols A-I)

Sub del_r2()
    Range("A5:I104").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub