No se filtran datos en una tabla

Tengo una macro asignada a un botón que me filtra ciertas columnas de una tabla mediante textbox, ¿mi problema es que cuando cambio el tamaño de la tabla ya no me funciona la macro que puedo hacer en estos casos? Gracias por sus respuestas a todos :)

Sub Gráfico41_Haga_clic_en()
Application.ScreenUpdating = False

Call DesProteger

AutoFilterMode = False
codigo = ActiveSheet.TextBox3.Value
movimiento = ActiveSheet.TextBox1.Value
proveedor = ActiveSheet.TextBox2.Value
descripcion = ActiveSheet.TextBox4.Value
almacen = ActiveSheet.TextBox5.Value

With ActiveSheet.range("Tabla1")

ActiveSheet.Range("Tabla1").AutoFilter field:=3, Criteria1:="=*" & codigo & "*"

ActiveSheet.Range("Tabla1").AutoFilter field:=9, Criteria1:="=*" & movimiento & "*"

ActiveSheet.Range("Tabla1").AutoFilter field:=12, Criteria1:="=*" & proveedor & "*"

ActiveSheet.Range("Tabla1").AutoFilter field:=4, Criteria1:="=*" & descripcion & "*"

ActiveSheet.Range("Tabla1").AutoFilter field:=1, Criteria1:="=*" & almacen & "*"

ActiveSheet.ListObjects("Tabla1").ShowAutoFilterDropDown = False

End With

Call Proteger

End Sub