Добрый день!  
 
Подскажите какой должен быть макрос чтобы снять все фильтра умной таблицы Ексель 2007.  
Я записал с помощью рекордера:  
 
Private Sub CommandButton1_Click()  
   ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=2, Criteria1:= _  
       "Столбец 1"  
End Sub  
 
Private Sub CommandButton2_Click()  
   ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=2, Criteria1:= _  
       "Столбец 2"  
End Sub  
 
Private Sub CommandButton3_Click()  
   ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=2, Criteria1:= _  
       "Столбец 3"  
End Sub  
 
Но, если столбцов таблицы много, то он достаточно долго выполняется. Есть альтернатива?