To delete blank rows

To delete blank rows
Sub rowsdeleteblank()
On Error Resume Next
Sheets("sheet").Activate
    Range("b13:b45").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub