VBA Delete Row on Cell

[Galceran]

This macro is too slow because the sheet has 757 rows. We want to incorporate it at the start of another macro. Any suggestions to shorten the time it takes? The col is already selected.

Sub DeleteRowOnCell()
' Select Col/Range then run

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

Thanks

 

[Jonmo1]

Considering you're selecting the whole column..Perhaps this will help a bit...

Intersect(Selection, Activesheet.UsedRange).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[Galceran]

Yes. 50% faster

Thanks Very Much
Gilbert