Код ошибки PasteSpecial и InputBox 1004

Question

Я пытаюсь скопировать автофильтр и вставить специальный диапазон, который я беру из поля ввода поставить я получаю ошибку 1004, есть идеи?

 Sub CopyFiltred2()
Dim StartCell As Range
Dim StartCell2 As Range
ActiveSheet.AutoFilter.Range.Copy


Set StartCell = Excel.Application.InputBox("Range?" & vbNewLine & "Please select the cell:" _
                                , "Insert Table of Contents", , , , , , 8)

StartCell.Select
Selection.PasteSpecial
End Sub

Answer 1

Какой диапазон выбран линией ActiveSheet.AutoFilter.Range.Copy? Если выбранный диапазон не найден, вы получите ошибку 1004.

Также вам не нужно выделять ячейку перед использованием PasteSpecial.

Заменить:

StartCell.Select
Selection.PasteSpecial

по:

Range(StartCell).PasteSpecial Paste:=PasteAll