Trouble understanding how to apply "on error resume next"

[BustedAvi]

Hello,

I have the following code

'remove rows of blank data (if data is not entered)
Sub deleterows()
    Sheets("Page 1").Select
    Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

This is designed to remove rows when the cell in column 4 is blank. However, if all columns are full, I get "subscript out of range".

I've done some researching and I've being trying to understand how to have the code handle errors. What I need is for it to simply ignore deleting rows altogether if column 4 does not contain cells of blank data.

From my understanding,

'remove rows of blank data (if data is not entered)
Sub deleterows()
    Sheets("Page 1").Select
    Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error Resume Next
End Sub

would require the next line of code to correct for the error - but how do i do this?

I appreciate your help.

 

[jbeaucaire]

If this macro is REALLY this short, then you only need the two commands, FIRST comes the instruction telling Excel what to do if an error occurs, THEN the code that "might" error. You also do not need to 'activate' a sheet to send a command to it.

Sub DeleteRows()

    On Error Resume Next
    Sheets("Page 1").Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

 

[BustedAvi]

It's not really that short of a macro but your info solved my problem.

Wow. Can't believe how simple that was. I feel stupid.

 

[BustedAvi]

Thanks very much