Macro to delete rows based on blank cells in a column

[ariel20029]

Hi all, I hope you can help. I have a simple code to delete rows based on blank cells in column T. However I believe that the cells are not being seen as Blank due to a prior formula being in the cell and the data being copy paste special to remove formulas. Is there a way to us an IS NULL instead?or is there another option?

Sub DelBlankRows()
Columns("T:T").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

<tbody>
</tbody><colgroup><col span="3"></colgroup>

Thank you all for your help Sharon

<tbody>
</tbody><colgroup><col span="3"></colgroup>

 

[MARK858]

One option (test on a test sheet obviously as you are deleting rows)

Sub delrowEmptyStr()
    Dim EmpCol As Range, LstRw As Long
    LstRw = Columns(20).Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
    Set EmpCol = Cells.Find(What:="*", SearchOrder:=xlColumns, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Offset(, 1).EntireColumn
    With Intersect(Rows("2:" & LstRw), EmpCol)
        .FormulaR1C1 = "=IF(RC20="""",""X"","""")"
        .Value = .Value
        .SpecialCells(xlConstants).EntireRow.Delete
    End With
End Sub

 

[ariel20029]

Perfect!!!!!! thank you very much

 

[MARK858]

You're welcome