Macro Correction to delete entire row

Hi,
The below macro is working fine, But if 1.xls or Error.xlsx has a blank sheet (No data in the sheet ) then this macro is creating error(In that case we don't want any error, it should do nothing in that case)

Please Login or Register  to view this content.

Thnx For the Help

Maybe some error handling... 'on error exit sub' or an 'on error resume next'?

Yes Croweater I know & i can do that But i don't want to do it
there are many other ways also to solve this problem instead of on error exit sub & on error resume next , So i am looking for the same Sir

Sintek Sir any of the file can be be a blank file, ws Or Sh
the code which u gave it will work only for Sh but for ws also line is needed

Sintek Sir below which line i have to put this line Sir?

One more error this macro has

Error details:
Run time Error 1004
No cells were found


highlighted line:
.Range("I:I").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Np Sintek Sir & Sorry for the same
Actually i was not getting where the issue occured otherwise i shared the same info at the starting of this post

Please Login or Register  to view this content.

Error details:
Run time Error 1004
No cells were found


highlighted line:
.Range("I:I").SpecialCells(xlCellTypeBlanks).EntireRow.Delete


May be error.xlsx has a blank sheet Or 1.xls will only have headers (data in only first row & nothing else in the sheet) then in that case Don't do anything & no error msg should come