Error en el metodo delete de la clase range

De nuevo estoy por acá solicitando su valiosa ayuda, de ante mano mil gracias por dedicar su valioso tiempo en ayudar a otros.

Tengo un inconveniente con el siguiente código arrojándome como resultado el siguiente error.

< error en el método delete de la clase range >. Necesito eliminar el registro seleccionado ya verifique que la hoja no estuviera con contraseña y el registro a eliminar se encuentra en la tabla 1.

Anexo parte de el código

Private Sub CmbEliminar_Click()
Dim respuesta As Integer, ctr As control

If rango Is Nothing Then
MsgBox "Aun no buscas ningun dato", vbOKOnly + vbInformation, "AVISO"
TxtCodigo.SetFocus
Exit Sub
End If

respuesta = MsgBox("¿Estas seguro de eliminar el producto elegido?", vbCritical + vbOKCancel, "AVISO")
If respuesta = vbOK Then

< Cells(rango.Row, rango.Column).EntireRow.Delete >

For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Then
ctr = ""
TxtCodigo = ""
TxtDescripcion = ""
TxtPrecioVenta = ""
TxtStock = ""
TxtPrecioCosto = ""
TxtPrecioMayoreo = ""
TxtCantidad = ""
TxtDepartamento = ""

End If
Next ctr
TxtCodigo.SetFocus
Exit Sub
End If

MsgBox "Operacion cancelada", vbOKOnly + vbInformation, "AVISO"

For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Then
ctr = ""
TxtCodigo = ""
TxtDescripcion = ""
TxtPrecioVenta = ""
TxtStock = ""
TxtPrecioCosto = ""
TxtPrecioMayoreo = ""
TxtCantidad = ""
TxtDepartamento = ""

End If
Next ctr

TxtCodigo.SetFocus

End Sub