Deleting rows with blank cells

**mike12345** · 11-28-2011, 02:50 PM

I need a macro that will delete a row if there is any text in column A. For instance if there is any text written in cell A21 then the row 21 will be completely deleted. Thanks

**tigeravatar** · 11-28-2011, 02:55 PM

mike12345,

I'm a little confused. Your title states "Deleting rows with blank cells" but in your post you ask that if cells in column A contain any text, delete those rows... So you want non-blank rows deleted?

**mike12345** · 11-28-2011, 03:01 PM

Yeah I completely screwed up the Title of the this thread. Should be "Deleting rows for cells that have text". Sorry

**tigeravatar** · 11-28-2011, 03:07 PM

mike12345,

Give this a try:

Sub tgr()
    
    With ActiveSheet.UsedRange
        Rows(.Row).Insert
        With .Offset(-1).Resize(.Rows.Count + 1)
            .AutoFilter 1, "<>"
            .EntireRow.Delete
        End With
    End With
    
End Sub