Avinash Crap Pending sorting out

[fixer]

Sub STEP11()
 
   Dim wbk1 As Workbook
   Dim wsh1 As Worksheet
 
   Application.ScreenUpdating = False
 
   Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\BasketOrder..csv")
   Set wsh1 = wbk1.Worksheets(1)
 
   With wsh1
   On Error Resume Next
   wsh1.Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
End With


   Application.DisplayAlerts = False
   wbk1.Close SaveChanges:=True
   Application.DisplayAlerts = True
 
   Application.ScreenUpdating = True
 
End Sub

Sub STEP12()
 
   Dim wbk1 As Workbook
   Dim wsh1 As Worksheet
 
   Application.ScreenUpdating = False
 
   Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\Error.xlsx")
   Set wsh1 = wbk1.Worksheets(1)
 
   With wsh1
   On Error Resume Next
   wsh1.Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
End With


   Application.DisplayAlerts = False
   wbk1.Close SaveChanges:=True
   Application.DisplayAlerts = True
 
   Application.ScreenUpdating = True
 
End Sub

These code works perfect
But as per recommendation this macro has on error resume next ,so i wanted to remove on error resume next in the macro & wanted to make it perfect