如何将多个excel中的选定区域的表格提取到一个excel中？

bighead0606

Sub 循环打开工作簿提取固定位置数据()
    Application.ScreenUpdating = False
    myfile = Dir(ThisWorkbook.Path & "\*.xls*")
    Do While myfile <> ""
           If myfile <> ThisWorkbook.Name Then
                Set Wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile)
                a = a + 1
                Wb.Worksheets(1).Range("A15:S36").Copy ThisWorkbook.Worksheets("Sheet1").Cells(a, 1)

                Wb.Close False
         End If
        myfile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "完成"
End Sub

新提取的表格总是从第二行开始覆盖上一个表格

就用这个代码提取表格，从下一个excel提取的表格总是从第二行开始覆盖上一个表格，只有最后一个excel提取的表格才是完整的，这个怎么解决啊?
求大神帮忙解决一下，谢谢~~~

bighead0606

是不是我这个代码根本就不对啊

liulang0808

a=ThisWorkbook.Worksheets("Sheet1").Cells(rows.count, 1).end(3).row+1
这样看看呢