error message on delete empty rows macro

[b.hill2387]

I am trying to delete empty rows in the data sets that I import into excel. Sometimes the data sets have empty rows and sometimes they do not. The code below works in deleting empty rows if there are any, but if there are no empty rows to delete it comes up with a Run-time error 1004 saying "No cells were found" and highlights my second line of code. Is there a way to fix this? Thanks in advance.

Sheets("Comparison 1").Select 
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
Sheets("Comparison 2").Select 
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[wrightyrx7]

Im not good with VBA but would take the easy way out and put the following above your code.

On Error Resume Next

Sure someone on here will be able to help a bit more than that though

 

[b.hill2387]

Thank you so much. Everything works perfectly now!