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

Question

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

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

Sub import()

    Dim sPath As String
    Dim sName As String

    sPath = ThisWorkbook.Path
    sName = Dir(sPath & "\*")

    Do While sName <> ""
        If sName <> ThisWorkbook.Name And sName <> "Targetworkbook" Then      
            Application.AskToUpdateLinks = False
            Application.DisplayAlerts = False    
            Workbooks.Open Filename:=(sPath & "\" & sName)
            ActiveWorkbook.Worksheets("Grafik").Copy after:=ThisWorkbook.Worksheets(Sheets.Count)      
           Workbooks(sName).Close SaveChanges:=False
           Application.DisplayAlerts = True
        End If

    sName = Dir
    Loop

End Sub