Eliminar fila seleccionada (Filtrada) con macro

Hola. Tengo un libro de Excel con miles de registros y con opcion de consultar y filtrar informaciones que cumple un criterio especificado con una condicional. La hoja está protegida y los registros empiezan en la fila 11.

Mi problema es el siguiente:

Al consultar un criterio me aparecen todos los registros que coinciden pero si quiero eliminar un registro (LA FILA SELECCIONADA) con una macro NO LO PUEDO. Al tratar de hacerlo me aparece un error diciéndome: NO SE PUEDEN DESPLAZAR LAS CELDAS DE UNA TABLA O RANGOS FILTRADOS.

Quisiera saber si es posible eliminar la celda seleccionada del resultado del filtro, mediante otro método.

aqui dejo el código que estoy usando:

Sub Eliminar_Fila()
Dim respuesta As Integer
respuesta = MsgBox("¿Está seguro de que quiere Eliminar el registro seleccionado?", vbYesNo, "Información importante")
If respuesta = 7 Then
Exit Sub
Else
If Selection.Row >= 11 Then
'desprotege hoja
ActiveSheet.Unprotect
Selection.EntireRow.Delete
Range("g12").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowInsertingRows:=True, AllowFiltering:=True
End If
End If
End Sub

 EL bug esta en la fila (Selection.EntireRow.Delete)

Agradezco su ayuda!!!