ошибка «runtime error 13: mismatch» - вставка в vba

Question

Я нахожусь в процессе создания инструмента, который собирает данные из нескольких файлов Excel и вставляет значения в сводный лист (тот же файл, что содержит vba).

По некоторым причинам я продолжаю получать "ошибка времени выполнения 13: ошибка "несоответствие" для последней строки кода на данный момент:

 ThisWorkbook.Worksheets(ShSummary).Range("B5")

Я предполагаю, что, возможно, ему не нравится ссылка "ThisWorkbook", но у меня не было этоговыпускать раньшеЕсть идеи?

Sub Import_Data()

    Dim FilePth As String
    Dim SourceBook As Workbook
    Dim LastCell_Nbr As Integer

'Open Follow Up file
    FilePth = "C:\Users\xxx\Desktop\xxx\xxx\Follow-up_File.xlsm"
    Set SourceBook = Application.Workbooks.Open(FilePth)
    ActiveSheet.ShowAllData
    LastCell_Nbr = Workbooks("Follow-up_File.xlsm").Sheets("Follow up").Cells(Rows.Count, "C").End(xlUp).Row

'Copy and paste data values into summary sheet
    SourceBook.Sheets("Follow up").Range("A5:A" & LastCell_Nbr).Copy _
        ThisWorkbook.Worksheets(ShSummary).Range("B5")

Заранее спасибо!