Delete empty rows with cell type 2

[FrankNL]

I'm using the following macro to copy the columns A:R to a new sheet. In
this new sheet the empty rows are deleted. These rows are determined by
any empty cells in column E.

Sub copypaste()

Columns("A:R").Select
Selection.Copy
Sheets("RowsDeleted").Select
Range("A1").Select
ActiveSheet.Paste

Columns("E:E").Select

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

End Sub


The problem I'm having is that it only deletes the rows where the cell
in column E is a number (cell type 1), but I want it to also remove the
empty cells with cell type 2 (text).

I tried to use other columns but the have the same problem.

Does anybody have a solution?

thanks

 

[Pete_UK]

Within your macro you could set up a filter on column E, choose the
criteria, then Edit | Delete Row and remove the filter. You could
record a macro while you do this manually (to get the syntax), then
copy it over to your other macro.

Hope this helps.

Pete