Создать новую книгу и скопировать в нее данные ошибки времени выполнения

Question

Извините, если есть повторяющийся пост об этой проблеме.Я очень новичок в VBA.Я ищу в сети с похожими проблемами / soluton и попробовал это.Видимо, я все еще не мог решить свою проблему.Надеюсь, вы, ребята, можете помочь мне, чтобы указать на ошибку, которая у меня есть.

Задача под рукой, у меня есть полная база данных Excel-файла, а именно: База данных соревнований v1.0 время от времени данные будут обновляться и изменяться.

Из базы данных я бы хотел отфильтроватькаждой категории и создайте новую книгу и вставьте в нее отфильтрованные данные.

Проблема, с которой я столкнулся, заключается в том, что мне удается создать новую книгу, но она не скопировала данные и не вставила их.

Сначала я попробовал это, но это не сработало.

Sub Createnewbook ()

Dim wb As Workbook
Set wb = Workbooks.Add

Range("C2", Range("C2").End(xlDown).End(xlToRight)).Copy
        wdApp.Selection.PasteExcelTable True, False, False

End Sub

Затем я попробовал это

Sub Createnewbook()

   Dim wb As Workbook
   Set wb = Workbooks.Add

(я получил ошибку из этой строки)

Рабочие книги ("База данных соревнований V1.0.xlsm"). Рабочие листы ("Информация о конкурентах"). Выберите

   Worksheets("Competitor Info").Range("C2", Range("C2").End(xlDown).End(xlToRight)).Copy
   wb.Worksheets("Sheet1").Range("A1").PasteExcelTable True, False, False                 

End Sub

Я ожидаюновая рабочая книга для копирования данных, и каждый раз, когда я меняю основную базу данных, она также обновляется