Eliminar línea por celda con condición

Todas/os!!

He creado esta macro para un proyecto pero me tira " SE ha producido el error 1004 en tiempos de ejecución: Error en el método Delete de la clase Range" . Me voy a la macro y resalta "Selection.EntireRow.Delete" . No puedo solucionarlo, me podrían ayudar, no soy experto voy aprendiendo. Gracias!

Macro

Sub Botón1_Haga_clic_en()
Application.ScreenUpdating = False
Sheets("PLANILLA").Select
ActiveSheet.Unprotect Password:="ALFA"
Buscardato = InputBox("Especificar el dato COD")
Range("Tabla6[COD]").Select
Cells.Find(What:=Buscardato, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Range("Tabla6[COD]").Select
ActiveSheet.Protect Password:="ALFA"
Application.ScreenUpdating = True
End Sub