Метод удаления класса диапазона не удался

Question

У меня есть код, в котором я использую индекс (совпадение) на основе ячейки с выпадающим меню. Когда пользователи выбирают определенную безопасность, выводится CUSIP, который затем вставляет формулы из bloomberg для вывода данных в excel.

Затем я создаю таблицу, но хотел бы отфильтровать таблицу с помощью автофильтра и удалить строки, которые не соответствуют критериям фильтра, но это почему-то не работает по какой-то причине! Я также установил кнопку формы управления activex, чтобы, когда пользователь дважды щелкает по выпадающему меню, они могут искать защиту, и она будет автозаполнена.

Пожалуйста, помогите, спасибо!

Sub INDEX_MATCH_CUSIP_TO_SHORTDESCRIPTION() 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

Sheets("Sheet4").Range("B3:E100").Delete 

Range("B2").Select 
test = Application.WorksheetFunction.Index(Sheets("DEX Spread Report (Corp)").Range("B7:B1600"),   Application.WorksheetFunction.Match(ActiveCell.Value, Sheets("DEX Spread Report (Corp)").Range("D7:D1600"), 0), 1) 
ActiveCell.Offset(1, 0).Value = test 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 

End Sub 

Sub BBRG_FORMULAS_FOR_SECURITY() 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

Dim CUSIPS As String 

    Sheets("Sheet4").Select 
    Range("B2").Select 

CUSIPS = ActiveCell.Offset(1, 0).Value 

ActiveCell.Offset(2, 0).Value = "=BDS(""" & CUSIPS & """ & ""& CUSIP"",""ALL_HOLDERS_PUBLIC_FILINGS"", ""STARTCOL=1"", ""ENDCOL=1"")" 
ActiveCell.Offset(2, 1).Value = "=BDS(""" & CUSIPS & """ & ""& CUSIP"",""ALL_HOLDERS_PUBLIC_FILINGS"", ""STARTCOL=6"", ""ENDCOL=8"")" 


Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 


End Sub 


Sub Create_Table_and_AutoFilter() 

Dim wksDest As Worksheet 
Dim LastRow As Long 
Dim rng  As Range 
Dim rngDelete As Range 

Sheets("Sheet4").Select 
Set wksDest = Worksheets("Sheet4") 

LastRow = Cells(Rows.Count, 2).End(xlUp).row 
LastRow1 = Cells(Rows.Count, 2).End(xlUp).row 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(4, 2), Cells(LastRow, 5)), , xlYes).Name = "HoldersTable" 

With wksDest 
Set rng = Range(Cells(4, 2), Cells(LastRow1, 5)) 
rng.AutoFilter Field:=1, Criteria1:="<=1000" 
Set rngDelete = rng.SpecialCells(xlCellTypeVisible) 
rng.AutoFilter 
rngDelete.EntireRow.Delete 
End With 

End Sub 

Answer 1

вы, скорее всего, пытается удалить заголовок таблицы

попробуйте заменить код из With wksDest в End With со следующим фрагментом:

With wksDest.Range(Cells(4, 2), Cells(LastRow1, 5)) 
    .AutoFilter Field:=1, Criteria1:="<=1000" 
    If Application.WorksheetFunction.Subtotal(103, .Cells.Resize(,1)) > 1 Then .offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
    .AutoFilter 
End With