Доброго времени суток.    
Скажу сразу что новичек.  
Помогите разобраться.  
Нашел макрос по фильтрации, но при выполнении ругается на:  
 
Sub SimpleSheetFilter()  
     
               As New com.sun.star.Sheet.TableFilterField  
 
 
КОД:  
Sub SimpleSheetFilter()  
   Dim oSheet ' Лист, на котором применен фильтр.  
   Dim oFilterDesc ' Критерии фильтра.  
   Dim oFields(0) As New com.sun.star.Sheet.TableFilterField  
   
   oSheet = ThisComponent.getSheets().getByIndex(0)  
   
   oFilterDesc = oSheet.createFilterDescriptor(True)  
   
   With oFields(0)  
       .Field = 5 ' Filter column F.  
       .IsNumeric = True ' Используется числовое значение  
       .Operator = com.sun.star.Sheet.FilterOperator.GREATER  
       .NumericValue = 4 ' Значения больше 4  
   End With  
   oFilterDesc.setFilterFields (oFields())  
   oSheet.Filter (oFilterDesc)  
End Sub