Eu gostaria de sugerir duas escolhas.
1. Selecione o intervalo de dados, clique com o botão direito, & pressione Filtro e, em seguida, volte a aplicar.
2. Este código VBA ajudará você a aplicar um filtro ao adicionar ou remover um novo
coluna.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As range)
Dim ws As Worksheet
Dim rng As range
Set ws = Sh
If ws.AutoFilterMode Then
With ws.AutoFilter.range
If (Target.Column < .Column) And (Target.Column + Target.Columns.count >=
.Column - Target.Columns.count) Or (Target.Column >= .Column + .Columns.count) Then
Set rng = ws.AutoFilter.range
ws.AutoFilter.range.AutoFilter
ws.range(Target, rng).AutoFilter
End If
End With
End If
End Sub
Espero que isso ajude você. Eu postei esta solução depois que ela foi testada por mim.