Error al eliminar celdas no coincidentes

hola estimados

estoy ejecutando esta macro y termina con un error una vez que finaliza la eliminación de datos, necesito que al usuario no salga ningún error .

Sub Borrado()
  Application.ScreenUpdating = False
  Workbooks("libro1").Sheets("hoja1").Activate
  Sheets("hoja1").Range("c1").Select
  Dim rn As Range
  Dim col, ul As Long
  ty = InputBox("Caracter")
  col = ActiveCell.Column
  ul = Cells(10000, col).End(xlUp).Row
  For i = ul To 1 Step -1
    If Cells(i, col) <> ty Then
      Cells(i, col).Select
      Selection.EntireRow.Delete         <----Aqui queda marcado el error
    End If
  Next
End Sub

gracias