Removing blank rows from a range.

[dex2612]

Really hoping someone could help me with this. i need to remove any rows that have empty cells from column E-J.

This is probably something the filter could do but i just haven't quite figured it out.

Thank you in advance,
Dex

-using excel 10

 

[dave3009]

Do all cells in the row from column E-J need to be blank or is it just if any blank cells exist in that range then delete?

 

[dex2612]

yes, sorry should have specified, all cells from e-j need to be blank.

 

[dex2612]

been researching the filters use.. still no luck

 

[dave3009]

Try this macro, you'll need to adjust sheet names etc to suit your needs

Sub EJDel()


Dim lst As Long
Dim i, j As Long
Dim BlkCnt As Integer


lst = Sheet2.UsedRange.Rows.Count


For i = lst To 2 Step -1
    For j = 5 To 10
        BlkCnt = 0
        
        If Cells(i, j) <> "" Then BlkCnt = BlkCnt + 1
            
    Next j
    
    If BlkCnt = 0 Then Range("E" & i).EntireRow.Delete
    
Next i


End Sub