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

Question

Я пытался скопировать данные из нескольких листов в другой книге на текущий лист и обнаружил

Ошибка времени выполнения 1004
«Не удалось скопировать метод класса Range»

Ошибка произошла в:

Rows(j).Copy _
    (thisws.Range("A300000").End(xlUp).Offset(1,0)

Благодарим за помощь, поскольку я новичок в Excel VBA.

Sub copyEPOSaging()
    Dim strUserFile As String        
    Dim thiswb As Workbook        
    Dim wb As Workbook        
    Dim thisws As Worksheet        
    Dim ws As Worksheet

    Set thiswb = ThisWorkbook        
    Set thisws = thiswb.Sheets("ePOS")

    'Opening File dialog box        
    Application.FileDialog(msoFileDialogFilePicker).Show

    'assign variable to identify selected file using dialog box        
    strUserFile = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

    'open the selected file        
    Set wb = Workbooks.Open(strUserFile)                 

    Dim i As Integer, j As Integer, k As Integer
    Dim lastRow As Integer

    For i = 1 To Sheets.Count - 1        
        With wb.Sheets(i)        
            lastRow = Range("A200000").End(xlUp).Row        
            For j = 3 To lastRow
                Rows(j).Copy _
                    (thisws.Range("A300000").End(xlUp).Offset(1, 0))
            Next j
        End With
    Next i

    MsgBox "Done"
End Sub